(import (chezscheme))
(case (machine-type)
  [(i3le ti3le a6le ta6le) (load-shared-object "libc.so.6")]
  [(i3osx ti3osx a6osx ta6osx) (load-shared-object "libc.dylib")]
  [(i3nt ti3nt a6nt ta6nt) (load-shared-object "msvcrt.dll")                           (load-shared-object "ws2_32.dll")]
  [else (load-shared-object "libc.so")])



(let ()
(define (blodwen-os)
  (case (machine-type)
    [(i3le ti3le a6le ta6le) "unix"]  ; GNU/Linux
    [(i3ob ti3ob a6ob ta6ob) "unix"]  ; OpenBSD
    [(i3fb ti3fb a6fb ta6fb) "unix"]  ; FreeBSD
    [(i3nb ti3nb a6nb ta6nb) "unix"]  ; NetBSD
    [(i3osx ti3osx a6osx ta6osx) "darwin"]
    [(i3nt ti3nt a6nt ta6nt) "windows"]
    [else "unknown"]))

(define blodwen-read-args (lambda (desc)
  (case (vector-ref desc 0)
    ((0) '())
    ((1) (cons (vector-ref desc 2)
               (blodwen-read-args (vector-ref desc 3)))))))
(define b+ (lambda (x y bits) (remainder (+ x y) (ash 1 bits))))
(define b- (lambda (x y bits) (remainder (- x y) (ash 1 bits))))
(define b* (lambda (x y bits) (remainder (* x y) (ash 1 bits))))
(define b/ (lambda (x y bits) (remainder (exact-floor (/ x y)) (ash 1 bits))))

(define integer->bits8 (lambda (x) (modulo x (expt 2 8))))
(define integer->bits16 (lambda (x) (modulo x (expt 2 16))))
(define integer->bits32 (lambda (x) (modulo x (expt 2 32))))
(define integer->bits64 (lambda (x) (modulo x (expt 2 64))))

(define blodwen-bits-shl (lambda (x y bits) (remainder (ash x y) (ash 1 bits))))
(define blodwen-shl (lambda (x y) (ash x y)))
(define blodwen-shr (lambda (x y) (ash x (- y))))
(define blodwen-and (lambda (x y) (logand x y)))
(define blodwen-or (lambda (x y) (logor x y)))
(define blodwen-xor (lambda (x y) (logxor x y)))

(define cast-num
  (lambda (x)
    (if (number? x) x 0)))
(define destroy-prefix
  (lambda (x)
    (cond
      ((equal? x "") "")
      ((equal? (string-ref x 0) #\#) "")
      (else x))))
(define cast-string-int
  (lambda (x)
    (floor (cast-num (string->number (destroy-prefix x))))))
(define cast-int-char
  (lambda (x)
    (if (and (>= x 0)
             (<= x #x10ffff))
        (integer->char x)
        0)))
(define exact-floor
  (lambda (x)
    (inexact->exact (floor x))))
(define cast-string-double
  (lambda (x)
    (cast-num (string->number (destroy-prefix x)))))
(define string-cons (lambda (x y) (string-append (string x) y)))
(define get-tag (lambda (x) (vector-ref x 0)))
(define string-reverse (lambda (x)
  (list->string (reverse (string->list x)))))
(define (string-substr off len s)
    (let* ((l (string-length s))
          (b (max 0 off))
          (x (max 0 len))
          (end (min l (+ b x))))
          (if (> b l)
              ""
              (substring s b end))))

(define either-left
  (lambda (x)
    (vector 0 x)))

(define either-right
  (lambda (x)
    (vector 1 x)))

(define blodwen-error-quit
  (lambda (msg)
    (display msg)
    (newline)
    (exit 1)))

(define (blodwen-get-line p)
    (if (port? p)
        (let ((str (get-line p)))
            (if (eof-object? str)
                ""
                str))
        void))

(define (blodwen-get-char p)
    (if (port? p)
        (let ((chr (get-char p)))
            (if (eof-object? chr)
                #\nul
                chr))
        void))

;; Buffers

(define (blodwen-new-buffer size)
  (make-bytevector size 0))

(define (blodwen-buffer-size buf)
  (bytevector-length buf))

(define (blodwen-buffer-setbyte buf loc val)
  (bytevector-u8-set! buf loc val))

(define (blodwen-buffer-getbyte buf loc)
  (bytevector-u8-ref buf loc))

(define (blodwen-buffer-setbits16 buf loc val)
  (bytevector-u16-set! buf loc val (native-endianness)))

(define (blodwen-buffer-getbits16 buf loc)
  (bytevector-u16-ref buf loc (native-endianness)))

(define (blodwen-buffer-setbits32 buf loc val)
  (bytevector-u32-set! buf loc val (native-endianness)))

(define (blodwen-buffer-getbits32 buf loc)
  (bytevector-u32-ref buf loc (native-endianness)))

(define (blodwen-buffer-setbits64 buf loc val)
  (bytevector-u64-set! buf loc val (native-endianness)))

(define (blodwen-buffer-getbits64 buf loc)
  (bytevector-u64-ref buf loc (native-endianness)))

(define (blodwen-buffer-setint32 buf loc val)
  (bytevector-s32-set! buf loc val (native-endianness)))

(define (blodwen-buffer-getint32 buf loc)
  (bytevector-s32-ref buf loc (native-endianness)))

(define (blodwen-buffer-setint buf loc val)
  (bytevector-s64-set! buf loc val (native-endianness)))

(define (blodwen-buffer-getint buf loc)
  (bytevector-s64-ref buf loc (native-endianness)))

(define (blodwen-buffer-setdouble buf loc val)
  (bytevector-ieee-double-set! buf loc val (native-endianness)))

(define (blodwen-buffer-getdouble buf loc)
  (bytevector-ieee-double-ref buf loc (native-endianness)))

(define (blodwen-stringbytelen str)
  (bytevector-length (string->utf8 str)))

(define (blodwen-buffer-setstring buf loc val)
  (let* [(strvec (string->utf8 val))
         (len (bytevector-length strvec))]
    (bytevector-copy! strvec 0 buf loc len)))

(define (blodwen-buffer-getstring buf loc len)
  (let [(newvec (make-bytevector len))]
    (bytevector-copy! buf loc newvec 0 len)
    (utf8->string newvec)))

(define (blodwen-buffer-copydata buf start len dest loc)
  (bytevector-copy! buf start dest loc len))

;; Threads

(define blodwen-thread-data (make-thread-parameter #f))

(define (blodwen-thread p)
    (fork-thread (lambda () (p (vector 0)))))

(define (blodwen-get-thread-data ty)
  (blodwen-thread-data))

(define (blodwen-set-thread-data a)
  (blodwen-thread-data a))

(define (blodwen-mutex) (make-mutex))
(define (blodwen-lock m) (mutex-acquire m))
(define (blodwen-unlock m) (mutex-release m))
(define (blodwen-thisthread) (get-thread-id))

(define (blodwen-condition) (make-condition))
(define (blodwen-condition-wait c m) (condition-wait c m))
(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))

(define (blodwen-sleep s) (sleep (make-time 'time-duration 0 s)))
(define (blodwen-usleep s)
  (let ((sec (div s 1000000))
        (micro (mod s 1000000)))
       (sleep (make-time 'time-duration (* 1000 micro) sec))))

(define (blodwen-time) (time-second (current-time)))
(define (blodwen-clock-time-utc) (current-time 'time-utc))
(define (blodwen-clock-time-monotonic) (current-time 'time-monotonic))
(define (blodwen-clock-time-duration) (current-time 'time-duration))
(define (blodwen-clock-time-process) (current-time 'time-process))
(define (blodwen-clock-time-thread) (current-time 'time-thread))
(define (blodwen-clock-time-gccpu) (current-time 'time-collector-cpu))
(define (blodwen-clock-time-gcreal) (current-time 'time-collector-real))
(define (blodwen-is-time? clk) (if (time? clk) 1 0))
(define (blodwen-clock-second time) (time-second time))
(define (blodwen-clock-nanosecond time) (time-nanosecond time))

(define (blodwen-args)
  (define (blodwen-build-args args)
    (if (null? args)
        (vector 0) ; Prelude.List
        (vector 1 (car args) (blodwen-build-args (cdr args)))))
    (blodwen-build-args (command-line)))

(define (blodwen-hasenv var)
  (if (eq? (getenv var) #f) 0 1))

(define (blodwen-system cmd)
  (system cmd))

;; Randoms
(define random-seed-register 0)
(define (initialize-random-seed-once)
  (if (= (virtual-register random-seed-register) 0)
      (let ([seed (time-nanosecond (current-time))])
        (set-virtual-register! random-seed-register seed)
        (random-seed seed))))

(define (blodwen-random-seed seed)
  (set-virtual-register! random-seed-register seed)
  (random-seed seed))
(define blodwen-random
  (case-lambda
    ;; no argument, pick a real value from [0, 1.0)
    [() (begin
          (initialize-random-seed-once)
          (random 1.0))]
    ;; single argument k, pick an integral value from [0, k)
    [(k)
      (begin
        (initialize-random-seed-once)
        (if (> k 0)
              (random k)
              (assertion-violationf 'blodwen-random "invalid range argument ~a" k)))]))

;; For finalisers

(define blodwen-finaliser (make-guardian))
(define (blodwen-register-object obj proc)
  (let [(x (cons obj proc))]
       (blodwen-finaliser x)
       x))
(define blodwen-run-finalisers
  (lambda ()
    (let run ()
      (let ([x (blodwen-finaliser)])
        (when x
          (((cdr x) (car x)) 'erased)
          (run))))))
(define System-prim_system (lambda (farg-0 farg-1) ((foreign-procedure #f "system" (string) int) farg-0)))
(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 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 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)))
(define File-System-prim__stdout (lambda () ((foreign-procedure #f "idris2_stdout" () void*) )))
(define File-System-prim__stdin (lambda () ((foreign-procedure #f "idris2_stdin" () void*) )))
(define File-System-prim__removeFile (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_removeFile" (string) int) farg-0)))
(define File-System-prim__readLine (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_readLine" (void*) void*) farg-0)))
(define File-System-prim__readChar (lambda (farg-0 farg-1) ((foreign-procedure #f "fgetc" (void*) int) farg-0)))
(define File-System-prim__open (lambda (farg-0 farg-1 farg-2 farg-3) ((foreign-procedure #f "idris2_openFile" (string string int) void*) farg-0 farg-1 farg-2)))
(define File-System-prim__flush (lambda (farg-0 farg-1) ((foreign-procedure #f "fflush" (void*) int) farg-0)))
(define File-System-prim__fileSize (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_fileSize" (void*) int) farg-0)))
(define File-System-prim__fileModifiedTime (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_fileModifiedTime" (void*) int) farg-0)))
(define File-System-prim__eof (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_eof" (void*) int) farg-0)))
(define File-System-prim__close (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_closeFile" (void*) void) farg-0) (vector 0 )))
(define File-System-prim__chmod (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "chmod" (string int) int) farg-0 farg-1)))
(define Directory-System-prim_openDir (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_openDir" (string) void*) farg-0)))
(define Directory-System-prim_fileErrno (lambda (farg-0) ((foreign-procedure #f "idris2_fileErrno" () int) )))
(define Directory-System-prim_dirEntry (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_nextDirEntry" (void*) void*) farg-0)))
(define Directory-System-prim_currentDir (lambda (farg-0) ((foreign-procedure #f "idris2_currentDirectory" () void*) )))
(define Directory-System-prim_createDir (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_createDir" (string) int) farg-0)))
(define Directory-System-prim_closeDir (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_closeDir" (void*) void) farg-0) (vector 0 )))
(define Directory-System-prim_changeDir (lambda (farg-0 farg-1) ((foreign-procedure #f "idris2_changeDir" (string) int) farg-0)))
(define Buffer-Data-stringByteLength (lambda (farg-0) ((foreign-procedure #f "strlen" (string) int) farg-0)))
(define Buffer-Data-prim__writeBufferData (lambda (farg-0 farg-1 farg-2 farg-3 farg-4) ((foreign-procedure #f "idris2_writeBufferData" (void* u8* int int) int) farg-0 farg-1 farg-2 farg-3)))
(define Buffer-Data-prim__setString (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-setstring farg-0 farg-1 farg-2)))
(define Buffer-Data-prim__setInt (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-setint farg-0 farg-1 farg-2)))
(define Buffer-Data-prim__setDouble (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-setdouble farg-0 farg-1 farg-2)))
(define Buffer-Data-prim__setByte (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-setbyte farg-0 farg-1 farg-2)))
(define Buffer-Data-prim__readBufferData (lambda (farg-0 farg-1 farg-2 farg-3 farg-4) ((foreign-procedure #f "idris2_readBufferData" (void* u8* int int) int) farg-0 farg-1 farg-2 farg-3)))
(define Buffer-Data-prim__newBuffer (lambda (farg-0 farg-1) (blodwen-new-buffer farg-0)))
(define Buffer-Data-prim__getString (lambda (farg-0 farg-1 farg-2 farg-3) (blodwen-buffer-getstring farg-0 farg-1 farg-2)))
(define Buffer-Data-prim__getInt (lambda (farg-0 farg-1 farg-2) (blodwen-buffer-getint farg-0 farg-1)))
(define Buffer-Data-prim__getDouble (lambda (farg-0 farg-1 farg-2) (blodwen-buffer-getdouble farg-0 farg-1)))
(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 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)))
(define FFI-Network-idrnet_socket (lambda (farg-0 farg-1 farg-2 farg-3) ((foreign-procedure #f "idrnet_socket" (int int int) int) farg-0 farg-1 farg-2)))
(define FFI-Network-idrnet_sockaddr_ipv4 (lambda (farg-0 farg-1) ((foreign-procedure #f "idrnet_sockaddr_ipv4" (void*) string) farg-0)))
(define FFI-Network-idrnet_sockaddr_family (lambda (farg-0 farg-1) ((foreign-procedure #f "idrnet_sockaddr_family" (void*) int) farg-0)))
(define FFI-Network-idrnet_free (lambda (farg-0 farg-1) ((foreign-procedure #f "idrnet_free" (void*) void) farg-0) (vector 0 )))
(define FFI-Network-idrnet_create_sockaddr (lambda (farg-0) ((foreign-procedure #f "idrnet_create_sockaddr" () void*) )))
(define FFI-Network-idrnet_bind (lambda (farg-0 farg-1 farg-2 farg-3 farg-4 farg-5) ((foreign-procedure #f "idrnet_bind" (int int int string int) int) farg-0 farg-1 farg-2 farg-3 farg-4)))
(define FFI-Network-idrnet_accept (lambda (farg-0 farg-1 farg-2) ((foreign-procedure #f "idrnet_accept" (int void*) int) farg-0 farg-1)))
(define prim__add_Int (lambda (arg-0 arg-1) (b+ arg-0 arg-1 63)))
(define prim__add_Integer (lambda (arg-0 arg-1) (+ arg-0 arg-1)))
(define prim__add_Double (lambda (arg-0 arg-1) (+ arg-0 arg-1)))
(define prim__sub_Int (lambda (arg-0 arg-1) (b- arg-0 arg-1 63)))
(define prim__sub_Integer (lambda (arg-0 arg-1) (- arg-0 arg-1)))
(define prim__sub_Double (lambda (arg-0 arg-1) (- arg-0 arg-1)))
(define prim__mul_Int (lambda (arg-0 arg-1) (b* arg-0 arg-1 63)))
(define prim__mul_Integer (lambda (arg-0 arg-1) (* arg-0 arg-1)))
(define prim__mul_Double (lambda (arg-0 arg-1) (* arg-0 arg-1)))
(define prim__div_Int (lambda (arg-0 arg-1) (b/ arg-0 arg-1 63)))
(define prim__div_Integer (lambda (arg-0 arg-1) (quotient arg-0 arg-1)))
(define prim__div_Double (lambda (arg-0 arg-1) (/ arg-0 arg-1)))
(define prim__mod_Int (lambda (arg-0 arg-1) (remainder arg-0 arg-1)))
(define prim__mod_Integer (lambda (arg-0 arg-1) (remainder arg-0 arg-1)))
(define prim__negate_Double (lambda (arg-0) (- arg-0)))
(define prim__shl_Int (lambda (arg-0 arg-1) (blodwen-bits-shl arg-0 arg-1 63)))
(define prim__shl_Integer (lambda (arg-0 arg-1) (blodwen-shl arg-0 arg-1)))
(define prim__shr_Int (lambda (arg-0 arg-1) (blodwen-shr arg-0 arg-1)))
(define prim__shr_Integer (lambda (arg-0 arg-1) (blodwen-shr arg-0 arg-1)))
(define prim__and_Int (lambda (arg-0 arg-1) (blodwen-and arg-0 arg-1)))
(define prim__and_Integer (lambda (arg-0 arg-1) (blodwen-and arg-0 arg-1)))
(define prim__or_Int (lambda (arg-0 arg-1) (blodwen-or arg-0 arg-1)))
(define prim__or_Integer (lambda (arg-0 arg-1) (blodwen-or arg-0 arg-1)))
(define prim__xor_Int (lambda (arg-0 arg-1) (blodwen-xor arg-0 arg-1)))
(define prim__lt_Int (lambda (arg-0 arg-1) (or (and (< arg-0 arg-1) 1) 0)))
(define prim__lt_Integer (lambda (arg-0 arg-1) (or (and (< arg-0 arg-1) 1) 0)))
(define prim__lt_Char (lambda (arg-0 arg-1) (or (and (char<? arg-0 arg-1) 1) 0)))
(define prim__lt_Double (lambda (arg-0 arg-1) (or (and (< arg-0 arg-1) 1) 0)))
(define prim__lt_String (lambda (arg-0 arg-1) (or (and (string<? arg-0 arg-1) 1) 0)))
(define prim__lte_Int (lambda (arg-0 arg-1) (or (and (<= arg-0 arg-1) 1) 0)))
(define prim__lte_Integer (lambda (arg-0 arg-1) (or (and (<= arg-0 arg-1) 1) 0)))
(define prim__lte_Char (lambda (arg-0 arg-1) (or (and (char<=? arg-0 arg-1) 1) 0)))
(define prim__lte_Double (lambda (arg-0 arg-1) (or (and (<= arg-0 arg-1) 1) 0)))
(define prim__lte_String (lambda (arg-0 arg-1) (or (and (string<=? arg-0 arg-1) 1) 0)))
(define prim__eq_Int (lambda (arg-0 arg-1) (or (and (= arg-0 arg-1) 1) 0)))
(define prim__eq_Integer (lambda (arg-0 arg-1) (or (and (= arg-0 arg-1) 1) 0)))
(define prim__eq_Char (lambda (arg-0 arg-1) (or (and (char=? arg-0 arg-1) 1) 0)))
(define prim__eq_Double (lambda (arg-0 arg-1) (or (and (= arg-0 arg-1) 1) 0)))
(define prim__eq_String (lambda (arg-0 arg-1) (or (and (string=? arg-0 arg-1) 1) 0)))
(define prim__gte_Int (lambda (arg-0 arg-1) (or (and (>= arg-0 arg-1) 1) 0)))
(define prim__gte_Integer (lambda (arg-0 arg-1) (or (and (>= arg-0 arg-1) 1) 0)))
(define prim__gte_Char (lambda (arg-0 arg-1) (or (and (char>=? arg-0 arg-1) 1) 0)))
(define prim__gte_Double (lambda (arg-0 arg-1) (or (and (>= arg-0 arg-1) 1) 0)))
(define prim__gte_String (lambda (arg-0 arg-1) (or (and (string>=? arg-0 arg-1) 1) 0)))
(define prim__gt_Int (lambda (arg-0 arg-1) (or (and (> arg-0 arg-1) 1) 0)))
(define prim__gt_Integer (lambda (arg-0 arg-1) (or (and (> arg-0 arg-1) 1) 0)))
(define prim__gt_Char (lambda (arg-0 arg-1) (or (and (char>? arg-0 arg-1) 1) 0)))
(define prim__gt_Double (lambda (arg-0 arg-1) (or (and (> arg-0 arg-1) 1) 0)))
(define prim__gt_String (lambda (arg-0 arg-1) (or (and (string>? arg-0 arg-1) 1) 0)))
(define prim__strLength (lambda (arg-0) (string-length arg-0)))
(define prim__strHead (lambda (arg-0) (string-ref arg-0 0)))
(define prim__strTail (lambda (arg-0) (substring arg-0 1 (string-length arg-0))))
(define prim__strIndex (lambda (arg-0 arg-1) (string-ref arg-0 arg-1)))
(define prim__strCons (lambda (arg-0 arg-1) (string-cons arg-0 arg-1)))
(define prim__strAppend (lambda (arg-0 arg-1) (string-append arg-0 arg-1)))
(define prim__strReverse (lambda (arg-0) (string-reverse arg-0)))
(define prim__strSubstr (lambda (arg-0 arg-1 arg-2) (string-substr arg-0 arg-1 arg-2)))
(define prim__believe_me (lambda (arg-0 arg-1 arg-2) arg-2))
(define prim__crash (lambda (arg-0 arg-1) (blodwen-error-quit (string-append "ERROR: " arg-1))))
(define prim__doubleExp (lambda (arg-0) (exp arg-0)))
(define prim__doubleLog (lambda (arg-0) (log arg-0)))
(define prim__doubleSin (lambda (arg-0) (sin arg-0)))
(define prim__doubleCos (lambda (arg-0) (cos arg-0)))
(define prim__doubleTan (lambda (arg-0) (tan arg-0)))
(define prim__doubleASin (lambda (arg-0) (asin arg-0)))
(define prim__doubleACos (lambda (arg-0) (acos arg-0)))
(define prim__doubleATan (lambda (arg-0) (atan arg-0)))
(define prim__doubleSqrt (lambda (arg-0) (sqrt arg-0)))
(define prim__doubleFloor (lambda (arg-0) (floor arg-0)))
(define prim__doubleCeiling (lambda (arg-0) (ceiling arg-0)))
(define prim__cast_IntString (lambda (arg-0) (number->string arg-0)))
(define prim__cast_IntegerString (lambda (arg-0) (number->string arg-0)))
(define prim__cast_CharString (lambda (arg-0) (string arg-0)))
(define prim__cast_DoubleString (lambda (arg-0) (number->string arg-0)))
(define prim__cast_StringInteger (lambda (arg-0) (cast-string-int arg-0)))
(define prim__cast_IntInteger (lambda (arg-0) arg-0))
(define prim__cast_CharInteger (lambda (arg-0) (char->integer arg-0)))
(define prim__cast_DoubleInteger (lambda (arg-0) (exact-floor arg-0)))
(define prim__cast_StringInt (lambda (arg-0) (cast-string-int arg-0)))
(define prim__cast_IntegerInt (lambda (arg-0) arg-0))
(define prim__cast_CharInt (lambda (arg-0) (char->integer arg-0)))
(define prim__cast_DoubleInt (lambda (arg-0) (exact-floor arg-0)))
(define prim__cast_StringDouble (lambda (arg-0) (cast-string-double arg-0)))
(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-Idris-main (lambda (ext-0) (Driver-Idris-mainWithCodegens (vector 0 ) ext-0)))
(define Driver-Idris-case--15334-10532 (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-24 (arg-3672 eta-2))) ((arg-3673 act-24) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--15323-10518 (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5) eta-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (CommandLine-Idris-usage)) eta-0)))))))))
(define Driver-Idris-case--13370-10416 (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--13667-10210 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--14032-10063 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
(define Driver-Idris-case--14379-9758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--14215-9682 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--14122-9546 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--14215-9682 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14032-9482 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--14122-9546 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--13667-9421 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14032-9482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--14032-10063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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 7))) e-10))) eta-0))))))))))))))))))
(define Driver-Idris-case--13667-9309 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--13667-9249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--13563-9119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13667-9309 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14032-9482 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--14032-10063 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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 7))) e-20))) eta-0)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Driver-Idris-case--13370-9032 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13667-9309 arg-0 arg-1 arg-2 arg-3 arg-4 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--14032-9482 arg-0 arg-1 arg-2 arg-3 arg-4 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--14032-10063 arg-0 arg-1 arg-2 arg-3 arg-4 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 7))) e-22))) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (else (vector 1 (vector 0 )))))))))))) (else (vector 1 (vector 0 ))))))))))))))))
(define Driver-Idris-case--13370-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) (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--13370-8875 (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--13357-8853 (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--13667-9309 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--14032-9482 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--14032-10063 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 7))) 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--13349-8842 (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--13667-9309 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--14032-9482 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--14032-10063 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 7))) 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--13196-8721 (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-6 (vector-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-2 e-6 e-7 e-8 e-9)))))))))))))
(define Driver-Idris-case--13174-8695 (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-10 (vector-ref sc1 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-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-10 e-2 e-3 e-4 e-1 e-6 e-7 e-8 e-9)))))))))))))) (vector 1 act-24))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Driver-Idris-case--12637-8659 (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--12637-8619 (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--12637-8571 (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--12637-8515 (lambda (arg-0 arg-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--12859-8427 (lambda (arg-0 arg-1 arg-2 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--12637-8400 (lambda (arg-0 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--12859-8427 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--12637-8321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-12 (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-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-12 e-2 e-3 e-4 e-1 e-10 e-7 e-8 e-9)))))))))))))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-31 (arg-3672 eta-0))) ((arg-3673 act-31) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-33 (arg-3672 eta-0))) ((arg-3673 act-33) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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--12859-8427 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-40 (arg-3672 eta-0))) ((arg-3673 act-40) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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) ((21) (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) ((22) (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--13667-9309 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--14032-9482 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--14032-10063 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 7))) 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) ((31) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5) ext-0))) ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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) ((18) (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--10435-7988 (lambda (arg-0 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-6290) (lambda (arg-6291) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6290 arg-6291 eta-1)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6292 arg-6293 eta-1))))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-6290) (lambda (arg-6291) (lambda (eta-1) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6290 arg-6291 eta-1)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-1) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6292 arg-6293 eta-1))))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-6290) (lambda (arg-6291) (lambda (eta-0) (Main-Yaffle-full_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Main-Yaffle-resolved_HasNames__C-40C-124UnitC-44MkUnitC-124C-41 arg-6292 arg-6293 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--10435-7988 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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Main-Yaffle-usage)) eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0)))) (vector 1 act-24))))))))
(define System-case--1883-7417 (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--1883-7417 '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--2136-6619 (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))) (Strings-Data-case--2138-6632 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-61C-61_Eq__Char e-0 #\-)))))))))(else (let ((sc0 arg-4)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Data-case--2138-6632 'erased arg-1 arg-2 e-1 e-0 (Prelude-C-61C-61_Eq__Char e-0 #\-))))))))))
(define Strings-Data-with--2057-6537 (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--2059-6567 '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--2059-6567 '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--2196-6716 (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 (Builtin-fst 'erased 'erased 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--2152-6672 (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 (Builtin-fst 'erased 'erased 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 0)))) (else (Strings-Data-case--2196-6716 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-C-38C-38 (Prelude-C-62C-61_Ord__Char arg-4 #\0) (lambda () (Prelude-C-60C-61_Ord__Char arg-4 #\9)))))))))
(define Strings-Data-case--2138-6632 (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 (lambda (y) (let ((sc1 (Builtin-snd 'erased 'erased arg-1))) (let ((e-2 (vector-ref sc1 2))) (e-2 (let ((sc2 (Builtin-fst 'erased 'erased arg-1))) (let ((e-4 (vector-ref sc2 3))) (e-4 y))))))) (Strings-Data-parseNumWithoutSign (Prelude-unpack arg-3) 0))) (else (Strings-Data-case--2152-6672 'erased arg-1 arg-2 arg-3 arg-4 (Prelude-C-61C-61_Eq__Char arg-4 #\+)))))))
(define Strings-Data-case--2059-6567 (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--2000-6502 (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--1913-6397 (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--1871-6352 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (Strings-Data-n--1869-6342-ltrimChars arg-0 arg-2)) (else (vector 1 arg-1 arg-2))))))
(define Strings-Data-case--1802-6290 (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--1794-6276 (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--1733-6216 (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--1728-6203 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (vector 0 ))(else (Strings-Data-case--1733-6216 arg-0 arg-1 (List-Data-break 'erased (lambda (eta-0) (Prelude-isSpace eta-0)) arg-1)))))))
(define Strings-Data-n--1715-6187-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--1715-6187-toFArgs arg-0 e-3)))))))))
(define Strings-Data-n--2050-6535-parsePosTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2057-6537 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
(define Strings-Data-n--2129-6617-parseIntTrimmed (lambda (arg-0 arg-1 arg-2 arg-3) (Strings-Data-with--2136-6619 'erased arg-1 arg-3 arg-3 (Strings-Data-strM arg-3))))
(define Strings-Data-n--1869-6342-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--1871-6352 arg-0 e-2 e-3 (Prelude-isSpace e-2)))))))))
(define Strings-Data-n--1768-6238-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--1728-6203 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--1768-6238-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)))))
(define Strings-Data-trim (lambda (ext-0) (Strings-Data-ltrim (Prelude-reverse (Strings-Data-ltrim (Prelude-reverse ext-0))))))
(define Strings-Data-toLower (lambda (arg-0) (Prelude-pack (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Prelude-toLower eta-0)) (Prelude-unpack arg-0)))))
(define Strings-Data-strTail (lambda (ext-0) (substring ext-0 1 (string-length ext-0))))
(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--1913-6397 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--2050-6535-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--2000-6502 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-parseInteger (lambda (arg-0 arg-1 arg-2) (Strings-Data-n--2129-6617-parseIntTrimmed 'erased arg-1 arg-2 (Strings-Data-trim arg-2))))
(define Strings-Data-ltrim (lambda (arg-0) (Prelude-pack (Strings-Data-n--1869-6342-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--1794-6276 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) (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--1715-6187-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--4580-6071 (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--4580-6012 (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--4505-5989 (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--4580-6012 '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--4580-6071 '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--3963-5398 (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--3854-5331 (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--3751-5184 (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--3492-4920 (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--2850-4314 (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--2551-4029 (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--2468-3955 (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--2442-3935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (List-Data-case--2468-3955 '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--2334-3816 (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--2269-3733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (List-Data-n--2265-3715-nubByC-39 'erased arg-4 arg-3 arg-2)) (else (vector 1 arg-1 (List-Data-n--2265-3715-nubByC-39 'erased (vector 1 arg-1 arg-4) arg-3 arg-2)))))))
(define List-Data-case--2199-3670 (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--2093-3569 (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--2062-3545 (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--2093-3569 'erased 'erased arg-4 arg-5 arg-2 e-2 e-3 x ((arg-5 arg-2) e-2))))))))
(define List-Data-case--2007-3480 (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--1951-3425 (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--1896-3371 (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--4090-5507-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--4090-5507-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--4090-5507-spreadHeads 'erased arg-1 arg-2 e-3 e-7))))))))))))))
(define List-Data-n--3854-5281-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--3854-5281-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--3854-5282-split (lambda (arg-0 arg-1 arg-2 arg-3) (List-Data-n--3854-5281-splitRec 'erased arg-1 arg-2 'erased arg-3 arg-3 (lambda (eta-0) eta-0))))
(define List-Data-n--2265-3715-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--2269-3733 '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--4505-5989 '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) (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--4090-5507-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--2551-4029 '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--2442-3935 '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--3854-5331 'erased arg-2 arg-1 (List-Data-n--3854-5282-split 'erased arg-2 arg-1 arg-2))))))))(else (List-Data-case--3854-5331 'erased arg-2 arg-1 (List-Data-n--3854-5282-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--2850-4314 '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--2265-3715-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--3751-5184 '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--3492-4920 '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--2093-3569 '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--3963-5398 '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-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--2007-3480 '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--1951-3425 '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--2199-3670 '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--1896-3371 '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--2334-3816 '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--2194-2348 (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--2194-2269 (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--2157-2240 (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--2194-2269 '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--2194-2348 '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--2936-2995 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2936-2959-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2936-2960-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-case--2868-2931 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2868-2895-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2868-2896-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-case--2800-2867 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2800-2831-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2800-2832-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-case--2732-2803 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 0 (Equality-Decidable-n--2732-2767-primitiveEq arg-0 arg-1 'erased 'erased 'erased))) (else (vector 1 (lambda (eta-0) (Equality-Decidable-n--2732-2768-primitiveNotEq arg-0 arg-1 'erased 'erased 'erased eta-0))))))))
(define Equality-Decidable-n--2936-2960-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--2868-2896-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--2800-2832-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--2732-2768-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--2936-2959-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
(define Equality-Decidable-n--2868-2895-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
(define Equality-Decidable-n--2800-2831-primitiveEq (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Builtin-believe_me 'erased 'erased (vector 0 ))))
(define Equality-Decidable-n--2732-2767-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--2936-2995 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--2868-2931 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--2732-2803 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--2800-2867 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--2157-2240 '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)))
(define Equality-Decidable-negEqSym (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (arg-3 (vector 0 ))))
(define Equality-Decidable-lemma_snd_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 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-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 Prelude-case--8979-9577 (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--9214-9505 (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--9147-9440 (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--9214-9505 '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--8977-9377 (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--9147-9440 '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--9015-9308 (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--8976-9255 (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--9015-9308 '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--8755-9032 (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--8731-9004 (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--8755-9032 arg-0 arg-1 (Prelude-C-62_Ord__Nat arg-1 arg-0)))))))
(define Prelude-case--8593-8849 (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--8541-8798 (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--7524-7811 (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--7376-7788 (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--7524-7811 arg-0 (Prelude-C-62_Ord__Char arg-0 (integer->char 127))))))))
(define Prelude-case--7351-7622 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "\\&") (else "")))))
(define Prelude-case--7017-7372 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--7018-7358 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--6849-7173 (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--6834-7159 (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--6701-7045 (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--6699-7035-unpackC-39 arg-0 (b+ arg-3 1 63) arg-2 arg-1)))))))
(define Prelude-case--6639-6989 (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--6484-6865 (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--5786-6278 (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--5791-6169 (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--5792-6141 (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--4412-4620 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--4413-4606 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--4322-4495 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 0) (else (+ 1 (- arg-0 1)))))))
(define Prelude-case--3184-3208 (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 3184(3208) at Prelude.idr:397:3--403:1"))))))
(define Prelude-case--3183-3189 (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 3183(3189) at Prelude.idr:394:3--397:3"))))))
(define Prelude-case--3156-3157 (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--3068-3086 (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 3068(3086) at Prelude.idr:361:3--368:1"))))))
(define Prelude-case--3067-3067 (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 3067(3067) at Prelude.idr:358:3--361:3"))))))
(define Prelude-case--3040-3035 (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--2421-2690 (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--2426-2565 (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--2427-2523 (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--2239-2273 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
(define Prelude-case--2167-2256 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--2239-2273 arg-0 arg-1 (Prelude-C-61C-61_Eq__String arg-1 arg-0)))))))
(define Prelude-case--2172-2239 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--2173-2225 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1483-1589 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
(define Prelude-case--1411-1572 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1483-1589 arg-0 arg-1 (Prelude-C-61C-61_Eq__Integer arg-1 arg-0)))))))
(define Prelude-case--1416-1555 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1417-1541 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1357-1475 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 1) (else 2)))))
(define Prelude-case--1285-1458 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) 0) (else (Prelude-case--1357-1475 arg-0 arg-1 (Prelude-C-61C-61_Eq__Int arg-1 arg-0)))))))
(define Prelude-case--1290-1441 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1291-1427 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1174-1333 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-case--1175-1319 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Prelude-n--6699-7035-unpackC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-case--6701-7045 arg-0 arg-3 arg-2 arg-1 (Prelude-C-62C-61_Ord__Int arg-1 arg-2))))
(define Prelude-n--6686-7024-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--6686-7024-toFArgs arg-0 e-3)))))))))
(define Prelude-n--7797-8071-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--7797-8071-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--6864-7185-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--7376-7668-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--7376-7668-getAt arg-0 e-1 e-7)))(else (let ((sc0 arg-2)) (vector 0 )))))))))))
(define Prelude-n--7376-7667-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)))
(define Prelude-show_Show__Integer (lambda (arg-0) (Prelude-showPrec_Show__Integer (vector 0 ) arg-0)))
(define Prelude-show_Show__Int (lambda (arg-0) (Prelude-showPrec_Show__Int (vector 0 ) arg-0)))
(define Prelude-show_Show__Double (lambda (arg-0) (Prelude-showPrec_Show__Double (vector 0 ) arg-0)))
(define Prelude-show_Show__Char (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 #\') "'\\''")(else (Prelude-strCons #\' ((Prelude-showLitChar arg-0) "'")))))))
(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--7797-8071-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)))
(define Prelude-showPrec_Show__Integer (lambda (ext-0 ext-1) (Prelude-primNumShow 'erased (lambda (eta-0) (number->string eta-0)) ext-0 ext-1)))
(define Prelude-showPrec_Show__Int (lambda (ext-0 ext-1) (Prelude-primNumShow 'erased (lambda (eta-0) (number->string eta-0)) ext-0 ext-1)))
(define Prelude-showPrec_Show__Double (lambda (ext-0 ext-1) (Prelude-primNumShow 'erased (lambda (eta-0) (number->string eta-0)) ext-0 ext-1)))
(define Prelude-showPrec_Show__Bool (lambda (arg-0 arg-1) (Prelude-show_Show__Bool arg-1)))
(define Prelude-showPrec_Show__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) (Prelude-show_Show__C-40C-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-4)))
(define Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) "Nothing") (else (let ((e-2 (vector-ref sc0 1))) (Prelude-showCon arg-2 "Just" (Prelude-showArg 'erased arg-1 e-2))))))))
(define Prelude-showPrec_Show__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 arg-3)))
(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--8731-9004 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--8976-9255 '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--8979-9577 '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--8977-9377 '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))
(define Prelude-pure_Applicative__C-40EitherC-32C-36eC-41 (lambda (arg-0 arg-1 ext-0) (vector 1 ext-0)))
(define Prelude-neutral_Monoid__String (lambda () ""))
(define Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 )))
(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--3068-3086 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--3184-3208 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--2173-2225 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--7018-7358 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--4413-4606 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--1417-1541 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--1291-1427 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--1175-1319 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--2427-2523 '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--5792-6141 '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--2172-2239 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--7017-7372 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--4412-4620 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--1416-1555 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--1290-1441 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--1174-1333 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--2426-2565 '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--5791-6169 '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))))
(define Prelude-fromInteger_Num__Nat (lambda (arg-0) arg-0))
(define Prelude-fromInteger_Num__Integer (lambda (ext-0) ext-0))
(define Prelude-fromInteger_Num__Int (lambda (ext-0) ext-0))
(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--3067-3067 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--3183-3189 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--2167-2256 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--1411-1572 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--1285-1458 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--2421-2690 '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--5786-6278 '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)))
(define Prelude-cast_Cast__Nat_Integer (lambda (ext-0) ext-0))
(define Prelude-cast_Cast__Nat_Int (lambda (ext-0) ext-0))
(define Prelude-cast_Cast__Integer_Double (lambda (ext-0) (exact->inexact ext-0)))
(define Prelude-cast_Cast__Int_Integer (lambda (ext-0) ext-0))
(define Prelude-cast_Cast__Int_Double (lambda (ext-0) (exact->inexact ext-0)))
(define Prelude-cast_Cast__Int_Char (lambda (ext-0) (cast-int-char ext-0)))
(define Prelude-cast_Cast__Double_Integer (lambda (ext-0) (exact-floor ext-0)))
(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--3040-3035 arg-0 (Prelude-C-60_Ord__Integer arg-0 0))))
(define Prelude-abs_Abs__Int (lambda (arg-0) (Prelude-case--3156-3157 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-3443) (Prelude-map_Functor__List 'erased 'erased func arg-3443))))) (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List '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-4370) (lambda (arg-4372) (Prelude-traverse_Traversable__List 'erased 'erased 'erased i_con-0 arg-4370 arg-4372))))))))))
(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))))))
(define Prelude-__Impl_Show_Int (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Int x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Int d x))))))
(define Prelude-__Impl_Show_Double (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Double x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Double d x))))))
(define Prelude-__Impl_Show_Bool (lambda () (vector 0 (lambda (x) (Prelude-show_Show__Bool x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Bool d x))))))
(define Prelude-__Impl_Show_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 (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 arg-2 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 arg-2 d x))))))
(define Prelude-__Impl_Show_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40MaybeC-32C-36aC-41 'erased arg-1 d x))))))
(define Prelude-__Impl_Show_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (x) (Prelude-show_Show__C-40ListC-32C-36aC-41 'erased arg-1 x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40ListC-32C-36aC-41 'erased arg-1 d x))))))
(define Prelude-__Impl_Show_C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 (lambda (arg-0 arg-1 arg-2) (vector 0 (lambda (x) (Prelude-show_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased arg-2 x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__C-40C-40EitherC-32C-36aC-41C-32C-36bC-41 'erased 'erased arg-2 d x))))))
(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-8885) (lambda (arg-8886) (Prelude-rangeFromTo_Range__C-36a 'erased arg-1 arg-8885 arg-8886))) (lambda (arg-8887) (lambda (arg-8888) (lambda (arg-8889) (Prelude-rangeFromThenTo_Range__C-36a 'erased arg-1 arg-8887 arg-8888 arg-8889)))) (lambda (arg-8890) (Prelude-rangeFrom_Range__C-36a 'erased arg-1 arg-8890)) (lambda (arg-8891) (lambda (arg-8892) (Prelude-rangeFromThen_Range__C-36a 'erased arg-1 arg-8891 arg-8892))))))
(define Prelude-__Impl_Ord_String (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796))))))
(define Prelude-__Impl_Ord_Prec (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Prec arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Prec arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Prec arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Prec arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Prec arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Prec arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Prec arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Prec arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Prec arg-795 arg-796))))))
(define Prelude-__Impl_Ord_Nat (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Nat arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Nat arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Nat arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Nat arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Nat arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Nat arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Nat arg-795 arg-796))))))
(define Prelude-__Impl_Ord_Integer (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Integer arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Integer arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Integer arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Integer arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Integer arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Integer arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Integer arg-795 arg-796))))))
(define Prelude-__Impl_Ord_Int (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796))))))
(define Prelude-__Impl_Ord_Bool (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796))))))
(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-436) (lambda (arg-437) (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-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-795 arg-796))))))
(define Prelude-__Impl_Ord_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-795 arg-796))))))
(define Prelude-__Impl_Num_Nat (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (Prelude-C-43_Num__Nat arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (Prelude-C-42_Num__Nat arg-2753 arg-2754))) (lambda (arg-2755) (Prelude-fromInteger_Num__Nat arg-2755)))))
(define Prelude-__Impl_Num_Integer (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755))))
(define Prelude-__Impl_Num_Int (lambda () (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755))))
(define Prelude-__Impl_Neg_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Integer arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Integer arg-2806 arg-2807))))))
(define Prelude-__Impl_Neg_Int (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Int arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Int arg-2806 arg-2807))))))
(define Prelude-__Impl_Monoid_String (lambda () (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))))
(define Prelude-__Impl_Monoid_C-40ListC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Prelude-join_Monad__Maybe 'erased arg-3675))))))
(define Prelude-__Impl_Monad_IO (lambda () (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-29 (arg-3675 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-3443) (let ((sc0 arg-3443)) (case (vector-ref 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-3510) (vector 1 arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (let ((sc0 arg-3511)) (case (vector-ref 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-3513)) (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-3672) (lambda (arg-3673) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Prelude-join_Monad__C-40EitherC-32C-36eC-41 'erased 'erased arg-3675))))))
(define Prelude-__Impl_Integral_Integer (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Integer arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Integer arg-2934 arg-2935))))))
(define Prelude-__Impl_Integral_Int (lambda () (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Int arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Int arg-2934 arg-2935))))))
(define Prelude-__Impl_HasIO_IO (lambda () (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Prec (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Prec arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Prec arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Ordering (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Ordering arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Ordering arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Nat (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Integer (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Integer arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Integer arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Int (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Char (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439))))))
(define Prelude-__Impl_Eq_Bool (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439))))))
(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-436) (lambda (arg-437) (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-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-438 arg-439))))))
(define Prelude-__Impl_Eq_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-438 arg-439))))))
(define Prelude-__Impl_Eq_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-438 arg-439))))))
(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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513))))))))
(define Prelude-__Impl_Applicative_List (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (Prelude-map_Functor__List 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__List 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__List 'erased 'erased arg-3511 arg-3513))))))))
(define Prelude-__Impl_Applicative_IO (lambda () (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 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-3443) (let ((sc0 arg-3443)) (case (vector-ref 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-3510) (vector 1 arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (let ((sc0 arg-3511)) (case (vector-ref 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-3513)) (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)))
(define Prelude-C-62_Ord__Nat (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Nat arg-0 arg-1) 2)))
(define Prelude-C-62_Ord__Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62_Ord__Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62_Ord__Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (> arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62_Ord__Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char>? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62_Ord__Bool (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Bool arg-0 arg-1) 2)))
(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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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)))))
(define Prelude-C-62C-61_Ord__Prec (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__Prec arg-0 arg-1) 0)))
(define Prelude-C-62C-61_Ord__Nat (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__Nat arg-0 arg-1) 0)))
(define Prelude-C-62C-61_Ord__Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62C-61_Ord__Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62C-61_Ord__Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (>= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62C-61_Ord__Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char>=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-62C-61_Ord__Bool (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__Bool arg-0 arg-1) 0)))
(define 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 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-47C-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) 0)))
(define Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3) 0)))
(define Prelude-C-61C-61_Eq__String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-61C-61_Eq__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-C-61C-61_Eq__Nat e-0 e-1)))(else (Prelude-C-61C-61_Eq__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))(else (Prelude-C-61C-61_Eq__Integer (Prelude-precCon arg-0) (Prelude-precCon arg-1)))))))
(define Prelude-C-61C-61_Eq__Ordering (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 0)(else 1)))) ((equal? sc0 1) (let ((sc1 arg-1)) (cond ((equal? sc1 1) 0)(else 1)))) ((equal? sc0 2) (let ((sc1 arg-1)) (cond ((equal? sc1 2) 0)(else 1))))(else 1)))))
(define Prelude-C-61C-61_Eq__Nat (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 0)(else 1))))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) 1)(else (let ((e-1 (- arg-1 1))) (Prelude-C-61C-61_Eq__Nat e-0 e-1)))))))))))
(define Prelude-C-61C-61_Eq__Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-61C-61_Eq__Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-61C-61_Eq__Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-61C-61_Eq__Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-61C-61_Eq__Bool (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (let ((sc1 arg-1)) (cond ((equal? sc1 0) 0)(else 1)))) ((equal? sc0 1) (let ((sc1 arg-1)) (cond ((equal? sc1 1) 0)(else 1))))(else 1)))))
(define 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 (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-C-38C-38 (let ((sc2 arg-2)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-2) e-6))) (lambda () (let ((sc2 arg-3)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-3) e-7)))))))))))))
(define Prelude-C-61C-61_Eq__C-40MaybeC-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) 0) (else 1)))) (else (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) 1) (else (let ((e-8 (vector-ref sc1 1))) (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-2) e-8)))))))))))))
(define Prelude-C-61C-61_Eq__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) 0)(else 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))) (Prelude-C-38C-38 (let ((sc2 arg-1)) (let ((e-1 (vector-ref sc2 1))) ((e-1 e-2) e-6))) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 e-3 e-7))))))(else 1))))))(else 1)))))
(define Prelude-C-60_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-60_Ord__Prec (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Prec arg-0 arg-1) 0)))
(define Prelude-C-60_Ord__Nat (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Nat arg-0 arg-1) 0)))
(define Prelude-C-60_Ord__Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (< arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60_Ord__Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (< arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60_Ord__Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (< arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60_Ord__Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char<? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60_Ord__Bool (lambda (arg-0 arg-1) (Prelude-C-61C-61_Eq__Ordering (Prelude-compare_Ord__Bool arg-0 arg-1) 0)))
(define 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 (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) 0)))
(define Prelude-C-60_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) 0)))
(define Prelude-C-60C-61_Ord__String (lambda (arg-0 arg-1) (let ((sc0 (or (and (string<=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60C-61_Ord__Prec (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__Prec arg-0 arg-1) 2)))
(define Prelude-C-60C-61_Ord__Nat (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__Nat arg-0 arg-1) 2)))
(define Prelude-C-60C-61_Ord__Integer (lambda (arg-0 arg-1) (let ((sc0 (or (and (<= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60C-61_Ord__Int (lambda (arg-0 arg-1) (let ((sc0 (or (and (<= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60C-61_Ord__Double (lambda (arg-0 arg-1) (let ((sc0 (or (and (<= arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60C-61_Ord__Char (lambda (arg-0 arg-1) (let ((sc0 (or (and (char<=? arg-0 arg-1) 1) 0))) (cond ((equal? sc0 0) 1)(else 0)))))
(define Prelude-C-60C-61_Ord__Bool (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__Bool arg-0 arg-1) 2)))
(define 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 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-C-47C-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-60C-61_Ord__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-C-47C-61_Eq__Ordering (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3) 2)))
(define Prelude-C-60C-43C-62_Semigroup__String (lambda (ext-0 ext-1) (Strings-Prelude-C-43C-43 ext-0 ext-1)))
(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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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)))
(define Prelude-C-47C-61_Eq__String (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__String arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Prec (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Prec arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Ordering (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Ordering arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Nat (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Nat arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Integer (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Integer arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Int (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Int arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Char (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Char arg-0 arg-1))))
(define Prelude-C-47C-61_Eq__Bool (lambda (arg-0 arg-1) (Prelude-not (Prelude-C-61C-61_Eq__Bool arg-0 arg-1))))
(define 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 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Prelude-not (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-4 arg-5))))
(define Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
(define Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-not (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased arg-1 arg-2 arg-3))))
(define Prelude-C-45_Neg__Integer (lambda (ext-0 ext-1) (- ext-0 ext-1)))
(define Prelude-C-45_Neg__Int (lambda (ext-0 ext-1) (b- ext-0 ext-1 63)))
(define Prelude-C-45_Neg__Double (lambda (ext-0 ext-1) (- ext-0 ext-1)))
(define Prelude-C-43_Num__Nat (lambda (ext-0 ext-1) (+ ext-0 ext-1)))
(define Prelude-C-43_Num__Integer (lambda (ext-0 ext-1) (+ ext-0 ext-1)))
(define Prelude-C-43_Num__Int (lambda (ext-0 ext-1) (b+ ext-0 ext-1 63)))
(define Prelude-C-43_Num__Double (lambda (ext-0 ext-1) (+ ext-0 ext-1)))
(define Prelude-C-42_Num__Nat (lambda (ext-0 ext-1) (* ext-0 ext-1)))
(define Prelude-C-42_Num__Integer (lambda (ext-0 ext-1) (* ext-0 ext-1)))
(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--6699-7035-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--6834-7159 arg-0 (Prelude-isLower arg-0))))
(define Prelude-toLower (lambda (arg-0) (Prelude-case--6849-7173 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--8541-8798 '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--8593-8849 '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--6639-6989 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 (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--7376-7788 arg-0 (Prelude-n--7376-7668-getAt arg-0 (Prelude-fromInteger_Num__Nat (char->integer arg-0)) (Prelude-n--7376-7667-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))))))
(define Prelude-shiftR (lambda (ext-0 ext-1) (blodwen-shr ext-0 ext-1)))
(define Prelude-shiftL (lambda (ext-0 ext-1) (blodwen-bits-shl ext-0 ext-1 63)))
(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--7351-7622 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)))))))))
(define Prelude-ord (lambda (ext-0) (char->integer ext-0)))
(define Prelude-not (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 1) (else 0)))))
(define Prelude-neutral (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
(define Prelude-negate (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-2) (e-2 arg-2))))))
(define Prelude-natToInteger (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) (+ 1 e-0)))))))
(define Prelude-mult (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((e-0 (- arg-0 1))) (+ arg-1 (* e-0 arg-1))))))))
(define Prelude-mod (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-minus (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (cond ((equal? sc0 0) 0)(else (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-0)(else (let ((sc0 arg-0)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-0 (- arg-0 1))) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (blodwen-error-quit "Nat case not covered"))(else (let ((e-1 (- arg-1 1))) (Prelude-minus e-0 e-1)))))))))))))))))
(define Prelude-maybe (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))) ((arg-3) e-2)))))))
(define Prelude-max (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-7 (vector-ref sc0 7))) (lambda (arg-2) (lambda (arg-3) ((e-7 arg-2) arg-3)))))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) (Prelude-toUpper arg-0) (Prelude-n--6864-7185-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--4322-4495 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-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-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--6686-7024-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--6484-6865 '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-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755))))
(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-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)))
(define Prelude-ceiling (lambda (arg-0) (ceiling arg-0)))
(define Prelude-cast (lambda (arg-0 arg-1 arg-2 ext-0) (arg-2 ext-0)))
(define Prelude-atan (lambda (arg-0) (atan arg-0)))
(define Prelude-asin (lambda (arg-0) (asin arg-0)))
(define Prelude-any (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-4) (((((e-2 'erased) 'erased) (lambda (x) (lambda (y) (Prelude-C-124C-124 x (lambda () (arg-3 y)))))) 1) arg-4))))))
(define Prelude-all (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 2))) (lambda (arg-4) (((((e-2 'erased) 'erased) (lambda (x) (lambda (y) (Prelude-C-38C-38 x (lambda () (arg-3 y)))))) 0) arg-4))))))
(define Prelude-acos (lambda (arg-0) (acos arg-0)))
(define Prelude-C-62C-62C-61 (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) ((((e-2 'erased) 'erased) arg-4) arg-5)))))))
(define Prelude-C-62C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-6 (vector-ref sc0 6))) (lambda (arg-2) (lambda (arg-3) ((e-6 arg-2) arg-3)))))))
(define Prelude-C-62 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) (lambda (arg-2) (lambda (arg-3) ((e-4 arg-2) arg-3)))))))
(define Prelude-C-61C-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 Prelude-C-60C-61 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-5 (vector-ref sc0 5))) (lambda (arg-2) (lambda (arg-3) ((e-5 arg-2) arg-3)))))))
(define Prelude-C-60C-43C-62 (lambda (arg-0 arg-1 ext-0 ext-1) ((arg-1 ext-0) ext-1)))
(define Prelude-C-60C-42C-62 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) (lambda (arg-4) (lambda (arg-5) ((((e-3 'erased) 'erased) arg-4) arg-5)))))))
(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-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 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))))
(define Builtin-rewrite__impl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
(define Builtin-idris_crash (lambda (arg-0 ext-0) (blodwen-error-quit (string-append "ERROR: " ext-0))))
(define Builtin-fst (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-2 (vector-ref sc0 1))) e-2))))
(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--391-421 (lambda (arg-0 arg-1 arg-2 arg-3) (PrimIO-unsafeDestroyWorld 'erased 'erased arg-3)))
(define PrimIO-case--278-345 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (arg-7 arg-6)))
(define PrimIO-case--260-323 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (PrimIO-case--278-345 '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--391-421 '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--260-323 '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--13262-1656 (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--13233-1600 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-1440 (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12915-1340 (lambda (arg-0 arg-1 arg-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--12856-1274 (lambda (arg-0 arg-1 arg-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-1220 (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--12856-1274 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--12610-1050 (lambda (arg-0 arg-1 arg-2 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed") eta-0))) (vector 1 act-24))))))))
(define REPL-Yaffle-case--12556-994 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-24 (arg-3672 eta-2))) ((arg-3673 act-24) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-945 (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-26 (arg-3672 eta-2))) ((arg-3673 act-26) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-798 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-660 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-584 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-431 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-490-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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--13233-1600 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12002-490-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-30 (arg-3672 eta-1))) ((arg-3673 act-30) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-30 (arg-3672 eta-2))) ((arg-3673 act-30) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-27 (arg-3672 eta-2))) ((arg-3673 act-27) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--12856-1274 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-28 (arg-3672 eta-2))) ((arg-3673 act-28) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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--2690-378 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--3373-1841 (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--3149-1635 (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 (_-1659) (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 (_-1700) (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--3128-1607 (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 (_-1659) (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 (_-1700) (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--3016-1501 (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 (_-1523) (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 (_-1561) (File-System-returnError 'erased 'erased arg-1))))))))))
(define File-System-case--2885-1477 (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--2885-1359-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 (_-1523) (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 (_-1561) (File-System-returnError 'erased 'erased arg-1)))))))))))))) (else (File-System-returnError 'erased 'erased arg-1))))))
(define File-System-case--2906-1423 (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--2885-1359-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--2892-1374 (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--2885-1359-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--2799-1290 (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--2743-1233 (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--2633-1123 (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--2367-853 (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--2294-790 (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--2176-662 (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--2072-555 (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--1876-357 (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--1838-330 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab+") (else "a+")))))
(define File-System-case--1838-324 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb+") (else "w+")))))
(define File-System-case--1838-318 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb+") (else "r+")))))
(define File-System-case--1838-312 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "ab") (else "a")))))
(define File-System-case--1838-306 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "wb") (else "w")))))
(define File-System-case--1838-300 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) "rb") (else "r")))))
(define File-System-n--2885-1359-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--2885-1359-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 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 (_-1659) (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 (_-1700) (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 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--2743-1233 '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--2885-1359-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 (_-1523) (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 (_-1561) (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--2072-555 '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--1838-300 (Info-System-isWindows))) ((1) (File-System-case--1838-306 (Info-System-isWindows))) ((2) (File-System-case--1838-312 (Info-System-isWindows))) ((3) (File-System-case--1838-318 (Info-System-isWindows))) ((4) (File-System-case--1838-324 (Info-System-isWindows))) (else (File-System-case--1838-330 (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--2799-1290 '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--2633-1123 '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 (_-946) (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--2367-853 '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--2176-662 '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--2294-790 '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--3373-1841 '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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Info-System-os) (vector 1 "windows" (vector 1 "mingw32" (vector 1 "cygwin32" (vector 0 )))))))
(define Unlit-Parser-case--1707-7514 (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--1683-7489 (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--1707-7514 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0))))))))(else (Unlit-Parser-case--1707-7514 arg-0 arg-1 arg-2 (Literate-Text-isLiterateLine (Unlit-Parser-styleCMark) arg-0)))))))
(define Unlit-Parser-case--1679-7468 (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--1683-7489 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0))))))))(else (Unlit-Parser-case--1683-7489 arg-0 arg-1 (Literate-Text-isLiterateLine (Unlit-Parser-styleOrg) arg-0)))))))
(define Unlit-Parser-case--1649-7452 (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--1619-7409-isStyle arg-0 (Unlit-Parser-styleCMark)))))))
(define Unlit-Parser-case--1619-7437 (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--1649-7452 arg-0 (Unlit-Parser-n--1619-7409-isStyle arg-0 (Unlit-Parser-styleOrg))))))))
(define Unlit-Parser-case--1622-7420 (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--1619-7409-isStyle (lambda (arg-0 arg-1) (Unlit-Parser-case--1622-7420 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--1619-7408-hasSuffix arg-0 eta-0))) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))))
(define Unlit-Parser-n--1619-7408-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 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--1679-7468 arg-0 (Literate-Text-isLiterateLine (Unlit-Parser-styleBird) arg-0))))
(define Unlit-Parser-isLitFile (lambda (arg-0) (Unlit-Parser-case--1619-7437 arg-0 (Unlit-Parser-n--1619-7409-isStyle arg-0 (Unlit-Parser-styleBird)))))
(define Literate-Text-with--2567-7745 (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--2326-7577 (lambda (arg-0 arg-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--2208-7554 (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--2326-7577 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--2492-7682 (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--2208-7495 (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--2158-7435 (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--2208-7468-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) (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--2208-7468-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--2208-7495 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--2208-7554 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--2567-7745 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--2492-7682 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--2272-487 (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--2248-466 (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--2116-349 (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--2442-609-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--2442-609-lexStr e-3)))))))))
(define Lexer-Text-n--2442-610-control (lambda () (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-n--2442-609-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)))))
(define Lexer-Text-stringLit (lambda () (Lexer-Text-quote (Lexer-Text-is #\") (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-escape #\\ (Lexer-Text-any)) (Lexer-Text-any)))))
(define Lexer-Text-space (lambda () (Core-Lexer-Text-pred (lambda (eta-0) (Prelude-isSpace eta-0)))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) 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)))))
(define Lexer-Text-non (lambda (arg-0) (vector 5 (Core-Lexer-Text-reject 'erased arg-0) (Lexer-Text-any))))
(define Lexer-Text-newline (lambda () (let ((crlf "\xd;\xa;")) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (Lexer-Text-exact crlf) (Lexer-Text-oneOf crlf)))))
(define Lexer-Text-manyUntil (lambda (arg-0 arg-1 arg-2) (Lexer-Text-many (vector 5 (Core-Lexer-Text-reject 'erased arg-1) arg-2))))
(define Lexer-Text-manyThen (lambda (arg-0 arg-1 arg-2) (vector 5 (Lexer-Text-manyUntil 'erased arg-1 arg-2) arg-1)))
(define Lexer-Text-many (lambda (arg-0) (Lexer-Text-opt (Lexer-Text-some arg-0))))
(define Lexer-Text-like (lambda (arg-0) (Core-Lexer-Text-pred (lambda (y) (Prelude-C-61C-61_Eq__Char (Prelude-toUpper arg-0) (Prelude-toUpper y))))))
(define Lexer-Text-isNot (lambda (arg-0) (Core-Lexer-Text-pred (lambda (arg-1) (Prelude-C-47C-61_Eq__Char arg-1 arg-0)))))
(define Lexer-Text-is (lambda (arg-0) (Core-Lexer-Text-pred (lambda (arg-1) (Prelude-C-61C-61_Eq__Char arg-1 arg-0)))))
(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--2248-466 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--2442-610-control) (Lexer-Text-any))) (Lexer-Text-isNot q)))) (lambda () (Lexer-Text-is q))))))
(define Lexer-Text-approx (lambda (arg-0) (Lexer-Text-case--2272-487 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))))))
(define Quantity-Quantity-Text-min (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define Quantity-Text-exactly (lambda (arg-0) (vector 0 arg-0 (vector 1 arg-0))))
(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--3168-8294 (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--3112-8242 (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--2963-8123 (lambda (arg-0 arg-1 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--2745-8090 (lambda (arg-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--2963-8123 '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--2757-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) (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--2745-7897-countNLs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5)) 63))) (let ((colC-39 (Core-Lexer-Text-n--2745-7898-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--2745-7899-getFirstToken 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-9 arg-10))))))
(define Core-Lexer-Text-case--2756-7923 (lambda (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--2269-7672 (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--2269-7637 (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--2269-7601 (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--2269-7556 (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--2269-7507 (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--2745-7899-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--2757-8004 '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--2745-7898-getCols (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Core-Lexer-Text-case--2756-7923 '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--2745-7897-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--2745-8090 'erased arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 (Core-Lexer-Text-n--2745-7899-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--2269-7507 '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--2269-7556 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--3168-8294 '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--3112-8242 '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 )))
(define Core-Lexer-Text-concatMap (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-3)) (case (vector-ref sc1 0) ((0) (arg-2 e-2)) (else (vector 6 (arg-2 e-2) (Core-Lexer-Text-concatMap 'erased 'erased arg-2 e-3))))))))))))
(define TokenData-Core-Lexer-Text-col (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) e-2))))
(define Core-Lexer-Text-Lexer (lambda () (vector "Text.Lexer.Core.Recognise" 0)))
(define Core-Lexer-Text-C-60C-124C-62 (lambda (arg-0 arg-1 ext-0 ext-1) (vector 7 ext-0 ext-1)))
(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--4811-8982 (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--4715-8810 (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--4378-8459 (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--4378-8426 (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--4378-8397 (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--4334-8361 (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--4273-8324 (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--4188-8233 (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--4188-8209 (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--4067-8132 (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--3919-7974 (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--3919-7955 (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--3853-7880 (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--3822-7852 (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--3792-7824 (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--3772-7805 (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--3741-7778 (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--3734-7769 (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--3741-7778 arg-0 e-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 (Source-Lexer-Parser-reservedSymbols)))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--3692-7736 (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--3683-7724 (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--3692-7736 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--3641-7689 (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--3632-7677 (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--3641-7689 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--3590-7642 (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--3580-7630 (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--3590-7642 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--3538-7594 (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--3528-7582 (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--3538-7594 arg-0 arg-1 e-0 (Prelude-C-61C-61_Eq__String e-0 arg-0))))(else (vector 0 ))))))
(define Source-Rule-Parser-case--3508-7560 (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--3488-7541 (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--3468-7522 (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--3439-7494 (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--3314-7410 (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--3314-7377 (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--3307-7370 (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--3314-7377 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--3314-7410 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--4811-8849-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 (_-8875) (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 (_-8910) (vector 0 (vector 0 (vector 0 ) ps))))))))))))
(define Source-Rule-Parser-n--3917-7934-reserved (lambda (arg-0) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 (Source-Rule-Parser-reservedNames))))
(define Source-Rule-Parser-n--3917-7936-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--3917-7937-opNS (lambda (arg-0) (vector 7 0 (Source-Rule-Parser-symbol ".(") (lambda () (lambda (_-8021) (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 (_-8053) (vector 0 (vector 0 arg-0 n)))))))))))))
(define Source-Rule-Parser-n--3917-7935-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--3919-7955 e-2 (Source-Rule-Parser-n--3917-7934-reserved e-2)))(else (Source-Rule-Parser-case--3919-7974 e-2 e-3 (Source-Rule-Parser-n--3917-7934-reserved e-2))))))))))))
(define Source-Rule-Parser-n--3287-7337-isEOI (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((12) 0)(else 1)))))
(define Source-Rule-Parser-n--4374-8380-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--4374-8381-afterDedent (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) (Source-Rule-Parser-case--4378-8397 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--4378-8426 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--4378-8459 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 (_-8538) (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 (_-8526) (vector 0 (Source-Rule-Parser-n--4374-8380-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--4374-8381-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--3528-7582 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--3488-7541 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--3508-7560 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--3683-7724 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--3734-7769 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 (_-9102) (vector 8 1 0 (vector 5 ) (lambda (_-9112) (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 (_-9143) (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--3792-7824 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--3917-7936-opNonNS) (lambda () (vector 7 1 (Source-Rule-Parser-namespacedIdent) (lambda () (lambda (ns) (vector 9 0 1 (Source-Rule-Parser-n--3917-7937-opNS ns) (lambda () (Source-Rule-Parser-n--3917-7935-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-moduleIdent (lambda () (vector 1 "Expected module identifier" (lambda (x) (Source-Rule-Parser-case--3822-7852 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--3580-7630 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--3468-7522 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--3772-7805 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--3853-7880 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--3632-7677 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--3287-7337-isEOI (let ((sc0 eta-0)) (let ((e-5 (vector-ref sc0 5))) e-5))))) (lambda (_-7356) (vector 0 (vector 0 ))))))
(define Source-Rule-Parser-documentationC-39 (lambda () (vector 1 "Expected documentation comment" (lambda (x) (Source-Rule-Parser-case--3439-7494 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 (_-8123) arg-0)) (lambda () (vector 9 0 1 (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-8114) arg-0))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4067-8132 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--3307-7370 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--4188-8209 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--4188-8233 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 (_-8948) (vector 8 1 0 (vector 5 ) (lambda (_-8958) (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--4811-8849-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--4811-8982 '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 (_-8567) (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 (_-8637) (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 (_-8765) (vector 8 1 0 (vector 5 ) (lambda (_-8775) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-2) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8794) (vector 0 ps))))))))))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4715-8810 '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 (_-8694) (vector 8 1 0 (vector 5 ) (lambda (_-8704) (vector 8 1 0 (Source-Rule-Parser-blockEntries 'erased (vector 0 ) arg-1) (lambda (ps) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8723) (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--4334-8361 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 (_-8312) (vector 0 (vector 0 )))) (lambda () (vector 8 1 1 (Common-Rule-Parser-column (vector "Parser.Lexer.Source.Token" )) (lambda (col) (Source-Rule-Parser-case--4273-8324 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--10123-7780 (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--10123-7260-showApp arg-0 arg-1 arg-0 e-2 e-3))))))
(define TT-Core-case--9893-7113 (lambda (arg-0 arg-1 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--9650-6862 (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--9143-6416 (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--9078-6369 (lambda (arg-0 arg-1 arg-2 arg-3) (Prelude-pure_Applicative__Maybe 'erased (+ 1 arg-3))))
(define TT-Core-case--9066-6350 (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--8751-6091 (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--8602-5976 (lambda (arg-0 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--8570-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) (TT-Core-case--8602-5976 '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--8456-5867 (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--8269-5658 (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--8103-5607 (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--8103-5533 (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--7582-5240 (lambda (arg-0 arg-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--7302-4893 (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--7302-4811 (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--6662-4212 (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--6558-4159 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
(define TT-Core-case--6454-4071 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (+ 1 arg-7)))
(define TT-Core-case--6388-3987 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
(define TT-Core-case--6110-3755 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (+ 1 arg-6)))
(define TT-Core-case--5746-3471 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define TT-Core-case--5747-3457 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define TT-Core-case--2895-848 (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--2895-816 (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--2895-784 (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--2895-752 (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--6062-3697-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--10123-7260-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--7088-4580-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--7088-4580-getFA 'erased arg-1 (vector 1 e-3 arg-2) e-2))))(else (vector 0 arg-3 arg-2))))))
(define TT-Core-n--5204-3010-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--5204-3011-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--5204-3010-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--5204-3010-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--5204-3010-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--9893-7066-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--9893-7066-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--9779-6974-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--9779-6974-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--6062-3697-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--10123-7780 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)))
(define TT-Core-showPrec_Show__TotalReq (lambda (arg-0 arg-1) (TT-Core-show_Show__TotalReq arg-1)))
(define TT-Core-showPrec_Show__Covering (lambda (arg-0 arg-1) (TT-Core-show_Show__Covering arg-1)))
(define TT-Core-showPrec_Show__Constant (lambda (arg-0 arg-1) (TT-Core-show_Show__Constant arg-1)))
(define TT-Core-showPrec_Show__C-40VarC-32C-36nsC-41 (lambda (arg-0 arg-1 arg-2) (TT-Core-show_Show__C-40VarC-32C-36nsC-41 'erased arg-2)))
(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--5747-3457 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--5746-3471 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-3275) (TT-Core-weaken_Weaken__Var n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Var vars ns arg-3279)))))))
(define TT-Core-__Impl_Weaken_Term (lambda () (vector 0 (lambda (n) (lambda (vars) (lambda (arg-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279)))))))
(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))))))
(define TT-Core-__Impl_Show_Constant (lambda () (vector 0 (lambda (x) (TT-Core-show_Show__Constant x)) (lambda (d) (lambda (x) (TT-Core-showPrec_Show__Constant d x))))))
(define TT-Core-__Impl_Show_C-40VarC-32C-36nsC-41 (lambda (arg-0) (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))))))
(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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__Visibility arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__Visibility arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (TT-Core-compare_Ord__Visibility arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (TT-Core-C-60_Ord__Visibility arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (TT-Core-C-62_Ord__Visibility arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (TT-Core-C-60C-61_Ord__Visibility arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (TT-Core-C-62C-61_Ord__Visibility arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (TT-Core-max_Ord__Visibility arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (TT-Core-min_Ord__Visibility arg-795 arg-796))))))
(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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__Visibility arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__Visibility arg-438 arg-439))))))
(define TT-Core-__Impl_Eq_Constant (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__Constant arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__Constant arg-438 arg-439))))))
(define TT-Core-__Impl_Eq_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439))))))
(define TT-Core-__Impl_Eq_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-438 arg-439))))))
(define TT-Core-__Impl_Eq_C-40BinderC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40BinderC-32C-36aC-41 'erased arg-1 arg-438 arg-439))))))
(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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) 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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) 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)))
(define TT-Core-C-60C-61_Ord__Visibility (lambda (arg-0 arg-1) (Prelude-C-47C-61_Eq__Ordering (TT-Core-compare_Ord__Visibility arg-0 arg-1) 2)))
(define TT-Core-C-47C-61_Eq__Visibility (lambda (arg-0 arg-1) (Prelude-not (TT-Core-C-61C-61_Eq__Visibility arg-0 arg-1))))
(define TT-Core-C-47C-61_Eq__Constant (lambda (arg-0 arg-1) (Prelude-not (TT-Core-C-61C-61_Eq__Constant arg-0 arg-1))))
(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--6388-3987 '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--6110-3755 '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--8103-5533 '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--8103-5607 '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--9650-6862 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--7582-5240 '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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "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--8570-5924 '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--9143-6416 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))))))
(define TT-Core-refToLocal (lambda (arg-0 arg-1 arg-2 arg-3) (TT-Core-refsToLocals 'erased (vector 1 arg-2 (vector 0 )) (vector 1 arg-2 arg-1 (vector 0 )) arg-3)))
(define TT-Core-piInfo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 2))) e-2)) ((1) (vector 1 )) ((2) (let ((e-10 (vector-ref sc0 2))) e-10)) ((3) (let ((e-14 (vector-ref sc0 2))) e-14)) ((4) (vector 1 )) (else (vector 1 ))))))
(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--8751-6091 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9066-6350 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--6454-4071 '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--6662-4212 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--6558-4159 '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--7088-4580-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--5204-3011-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--8269-5658 '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--2895-752 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--2895-784 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--2895-816 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--2895-848 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--8456-5867 '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--9893-7066-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--9893-7113 '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--9779-6974-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--1504-424 (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--1461-385 (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--1461-385 '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--1504-424 '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--1672-564 (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--1614-513 (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--1479-413 (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--1457-363 (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--1479-413 '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))))
(define Semiring-Algebra-linear (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
(define Semiring-Algebra-isRigOther (lambda (arg-0 arg-1 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased arg-1 1 1 (lambda (eta-0) 0) ext-0)))
(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--1457-363 '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--1614-513 '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--1672-564 '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 )))
(define ZeroOneOmega-Algebra-topAbs_Top__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-timesNeutral_Semiring__ZeroOneOmega (lambda () (vector 1 )))
(define ZeroOneOmega-Algebra-show_Show__ZeroOneOmega (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Rig0") ((1) "Rig1") (else "RigW")))))
(define ZeroOneOmega-Algebra-showPrec_Show__ZeroOneOmega (lambda (arg-0 arg-1) (ZeroOneOmega-Algebra-show_Show__ZeroOneOmega arg-1)))
(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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))
(define ZeroOneOmega-Algebra-__Impl_Preorder_ZeroOneOmega (lambda () (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261)))))))))
(define ZeroOneOmega-Algebra-__Impl_Eq_ZeroOneOmega (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))))
(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--2942-3619-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--2942-3619-go 'erased 'erased 'erased '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) (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--2942-3619-go 'erased 'erased 'erased '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--4233-6745 (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--4233-6708 (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--4145-6623 (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--3843-6431 (lambda (arg-0 arg-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--3843-6357 (lambda (arg-0 arg-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--3730-6333 (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--3843-6357 '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--3843-6431 '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--3730-6259 (lambda (arg-0 arg-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--2989-6235 (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--3730-6259 '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--3730-6333 '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--3617-6181 (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--3475-6139 (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--3500-6081 (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--3475-6039 (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--2989-6019 (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--3475-6039 '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--3475-6139 '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--3303-5957 (lambda (arg-0 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--3303-5889 (lambda (arg-0 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--3200-5867 (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--3303-5889 '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--3303-5957 '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--3200-5799 (lambda (arg-0 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--2989-5777 (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--3200-5799 '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--3200-5867 '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--3061-5727 (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--3061-5673 (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--2989-5655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (NameMap-Data-case--3061-5673 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (NameMap-Data-case--3061-5727 'erased arg-1 arg-2 arg-3 arg-4 (NameMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
(define NameMap-Data-case--2989-5607 (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--2909-5538 (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--2650-5441 (lambda (arg-0 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--2650-5330 (lambda (arg-0 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--2487-5299 (lambda (arg-0 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--2650-5330 '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--2650-5441 '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--2487-5189 (lambda (arg-0 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--2132-5158 (lambda (arg-0 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--2487-5189 '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--2487-5299 '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--2261-5080 (lambda (arg-0 arg-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--2261-4991 (lambda (arg-0 arg-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--2132-4964 (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--2261-4991 '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--2261-5080 '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--2132-4862 (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--2025-4801 (lambda (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--1902-4754 (lambda (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--2025-4801 '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--1902-4706 (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--1902-4663 (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--4016-6487-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--4016-6487-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4016-6487-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--4016-6487-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4016-6487-treeToListC-39 'erased 'erased 'erased (NameMap-Data-n--4016-6487-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--4016-6487-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--1902-4663 '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--1902-4706 '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--1902-4754 '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--2132-4862 '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--2132-4964 '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--2132-5158 '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--2909-5538 '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--2989-5607 '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--2989-5655 '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--2989-5777 '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--2989-6019 '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--2989-6235 '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--4145-6623 '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--4233-6708 'erased e-3 arg-1 (NameMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (NameMap-Data-case--4233-6745 '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--2716-4196 (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--3094-4169 (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--2716-4148 (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--3094-4169 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
(define Name-Core-with--3039-4121 (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--2716-4100 (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--3039-4121 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0))))))))
(define Name-Core-with--2988-4080 (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--2716-4056 (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--2988-4080 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0))))))))
(define Name-Core-with--2716-4022 (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--2907-3996 (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--2716-3985 (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--2907-3996 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-with--2859-3955 (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--2716-3944 (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--2859-3955 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-with--2808-3915 (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--2716-3900 (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--2808-3915 arg-4 arg-3 (Equality-Decidable-decEq_DecEq__Int arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-with--2716-3873 (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--2730-3847 (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--2716-3834 (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--2730-3847 arg-4 arg-3 (Name-Core-nameEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define Name-Core-case--2307-3769 (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--2307-3729 (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--2307-3685 (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
(define Name-Core-case--2307-3629 (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--2307-3589 (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--2307-3541 (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-1 arg-3)) ((equal? sc0 2) 2) (else 0)))))
(define Name-Core-case--2312-3502 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Name-Core-case--2313-3488 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Name-Core-case--1861-3056 (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-2) (else (vector 1 arg-4 (Name-Core-n--1853-3040-updateNS arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))
(define Name-Core-n--1853-3040-updateNS (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))) (Name-Core-case--1861-3056 arg-0 arg-1 arg-2 arg-3 e-1 e-2 arg-4 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-4 (vector 1 e-1 e-2)))))) (else (vector 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--2313-3488 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--2312-3502 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--2307-3541 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--2307-3589 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--2307-3629 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--2307-3685 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--2307-3729 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--2307-3769 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Name-Core-compare_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-C-60_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-C-62_Ord__Name arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Name-Core-C-60C-61_Ord__Name arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Name-Core-C-62C-61_Ord__Name arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Name-Core-max_Ord__Name arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Name-Core-min_Ord__Name arg-795 arg-796))))))
(define Name-Core-__Impl_Eq_Name (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439))))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) 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))))
(define Name-Core-userNameRoot (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Name-Core-userNameRoot e-1))) ((1) (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2))) ((4) (let ((e-4 (vector-ref sc0 2))) (Name-Core-userNameRoot e-4))) ((5) (let ((e-5 (vector-ref sc0 1))) (vector 1 (Strings-Prelude-C-43C-43 "." e-5))))(else (vector 0 ))))))
(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--2716-3834 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--2716-3873 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--2716-3900 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--2716-3944 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--2716-3985 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--2716-4022 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--2716-4056 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--2716-4100 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--2716-4148 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--2716-4196 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 Name-Core-asName (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((4) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 4 e-0 (Name-Core-asName arg-0 arg-1 e-1))))) ((0) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (vector 0 (Name-Core-n--1853-3040-updateNS e-3 e-2 arg-1 arg-0 arg-0 e-2) e-3))))(else arg-2)))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (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)))))))))
(define FC-Core-onLine (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-C-62C-61_Ord__Int arg-0 (Builtin-fst 'erased 'erased e-1)) (lambda () (Prelude-C-60C-61_Ord__Int arg-0 (Builtin-fst 'erased 'erased e-2)))))))(else 1)))))
(define FC-Core-file (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) e-0)) (else "")))))
(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--4589-2994 (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--4573-2972 (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--4589-2994 arg-0 arg-1 (Prelude-C-61C-61_Eq__Nat (Prelude-length arg-1) (Prelude-fromInteger_Num__Nat 0))))))))
(define Support-Parser-case--4324-2873 (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--4360-2805 (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--4324-2755 (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--4360-2805 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--3939-2723 (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--4324-2755 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--4324-2873 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--3939-2671 (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--3939-2629-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--3939-2579 (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--3939-2537-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--3939-2629-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--3939-2629-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--3939-2537-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--3939-2537-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-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--4573-2972 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--3939-2579 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isHexDigit eta-0)) e-6))) ((equal? sc3 #\o) (Support-Parser-case--3939-2671 e-6 (List-Data-span 'erased (lambda (eta-0) (Prelude-isOctDigit eta-0)) e-6)))(else (Support-Parser-case--3939-2723 e-3 (List-Data-span 'erased (lambda (eta-0) (Prelude-isDigit eta-0)) e-3))))))))(else (Support-Parser-case--3939-2723 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--2105-372 (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--2088-354 (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--2105-372 '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--2105-372 '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--3318-1812 (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--3154-1724 (lambda (arg-0 arg-1 arg-2 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--2437-1663 (lambda (arg-0 arg-1 arg-2 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--3154-1724 '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--2962-1564 (lambda (arg-0 arg-1 arg-2 arg-3 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--2437-1499 (lambda (arg-0 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--2962-1564 '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--2797-1385 (lambda (arg-0 arg-1 arg-2 arg-3 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--2437-1361 (lambda (arg-0 arg-1 arg-2 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--2797-1385 '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--2437-1290 (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--2437-1175 (lambda (arg-0 arg-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--2437-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) ((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--3318-1812 '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--2437-1175 '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--2437-1290 '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--2437-1361 '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--2437-1499 '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--2437-1663 '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--1853-1951 (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--2870-1086 (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--2870-1056-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--2873-1061 (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--2661-862 (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--2659-829-parseIdent e-1))(else (vector 6 arg-1)))))))(else (vector 6 arg-1))))))
(define Source-Lexer-Parser-case--2660-837 (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--2621-810 (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--2612-794 (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--2621-810 arg-0 num (Octal-Utils-fromOct (Prelude-reverse num)))))))))
(define Source-Lexer-Parser-case--2574-766 (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--2565-750 (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--2574-766 arg-0 num (Hex-Utils-fromHex (Prelude-reverse num)))))))))
(define Source-Lexer-Parser-n--2659-830-parseNamespace (lambda (arg-0) (Source-Lexer-Parser-case--2661-862 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--2659-829-parseIdent (lambda (arg-0) (Source-Lexer-Parser-case--2660-837 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 (Source-Lexer-Parser-keywords)))))
(define Source-Lexer-Parser-n--2870-1056-notComment (lambda (arg-0 arg-1 arg-2) (Source-Lexer-Parser-case--2873-1061 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))))))
(define Source-Lexer-Parser-validSymbol (lambda () (Lexer-Text-some (Core-Lexer-Text-pred (lambda (eta-0) (Source-Lexer-Parser-isOpChar eta-0))))))
(define Source-Lexer-Parser-toEndComment (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (Core-Lexer-Text-empty))(else (let ((e-0 (- arg-0 1))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-some (Core-Lexer-Text-pred (lambda (c) (Prelude-C-38C-38 (Prelude-C-47C-61_Eq__Char c #\-) (lambda () (Prelude-C-38C-38 (Prelude-C-47C-61_Eq__Char c #\{) (lambda () (Prelude-C-47C-61_Eq__Char c #\")))))))) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 e-0)))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\{) (lambda () (Source-Lexer-Parser-singleBrace e-0))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\-) (lambda () (Source-Lexer-Parser-singleDash e-0))) (vector 4 (Lexer-Text-stringLit) (lambda () (Source-Lexer-Parser-toEndComment (+ 1 e-0)))))))))))))
(define Source-Lexer-Parser-symbols (lambda () (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 1 "`{{" (vector 1 "`[" (vector 1 "`" (vector 0 )))))))))))))))))))))
(define Source-Lexer-Parser-singleDash (lambda (arg-0) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\-) (lambda () (Source-Lexer-Parser-doubleDash arg-0))) (Core-Lexer-Text-C-60C-124C-62 'erased 'erased (vector 4 (Lexer-Text-is #\}) (lambda () (Source-Lexer-Parser-toEndComment arg-0))) (Source-Lexer-Parser-toEndComment (+ 1 arg-0))))))
(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--2659-830-parseNamespace eta-0))) (vector 1 (vector 0 (Common-Lexer-Parser-identNormal) (lambda (eta-0) (Source-Lexer-Parser-n--2659-829-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--2870-1086 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) 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--2612-794 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--2565-750 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--1516-602-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--1516-602-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--1516-602-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--1517-411 (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--1517-411 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--1775-559 (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--1773-550-asHexC-39 arg-0 e-1 (vector 1 (Hex-Utils-hexDigit e-2) arg-3)))))))
(define Hex-Utils-case--1825-606 (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--1773-588 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Prelude-pack (Hex-Utils-n--1773-550-asHexC-39 arg-0 arg-0 (vector 0 )))) (else "0")))))
(define Hex-Utils-n--1939-709-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--1939-709-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--1773-550-asHexC-39 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (cond ((equal? sc0 0) arg-2)(else (Hex-Utils-with--1775-559 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--1825-606 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--1939-709-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) (Hex-Utils-case--1773-588 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--1640-321 (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--1640-321 ext-0 (vector 2 ) (Prelude-unpack ext-0))))
(define Common-Lexer-Parser-isIdent (lambda (arg-0 arg-1) (Common-Lexer-Parser-case--1640-321 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--6974-8558 (lambda (arg-0 arg-1 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--9514-8495 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--6974-8456 (lambda (arg-0 arg-1 arg-2 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--6974-8399 (lambda (arg-0 arg-1 arg-2 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--9243-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 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--9187-8225 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9243-8304 arg-0 arg-1 arg-2 arg-3 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--6974-8153-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--6974-8182 (lambda (arg-0 arg-1 arg-2 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--9187-8225 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--6974-8152-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--9038-8099 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--6974-8060 (lambda (arg-0 arg-1 arg-2 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--6974-7995 (lambda (arg-0 arg-1 arg-2 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--6971-7959 (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--6968-7838 (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--6968-7787 (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--6968-7736 (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--8473-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 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--8431-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) (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--8390-7551 (lambda (arg-0 arg-1 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--6968-7518 (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--8168-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 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--8131-7323 (lambda (arg-0 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--6968-7294 (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--8000-7205 (lambda (arg-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--6968-7098-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--6968-7182 (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--6968-7098-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--7907-7124 (lambda (arg-0 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--6968-7098-uniqueLocal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9 (Unelab-TTImp-n--6968-7097-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--7765-7036 (lambda (arg-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--6968-6981 (lambda (arg-0 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--7620-6910 (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--6968-6851 (lambda (arg-0 arg-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))) (let ((act-25 (Context-Core-aliasName 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 0 (vector 0 arg-3 e-6) (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--7474-6749 (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--6962-6731 (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--7247-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) (Unelab-TTImp-n--6960-6309-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--7214-6536 (lambda (arg-0 arg-1 arg-2 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--7247-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 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--7193-6512 (lambda (arg-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--7214-6536 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--6960-6304-findArgPos arg-0 arg-1 arg-2 arg-3 'erased e-2))))))))(else (lambda (eta-0) (vector 1 arg-0)))))))
(define Unelab-TTImp-case--6960-6497 (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--7193-6512 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--6987-6364 (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--6960-6305-idxOrDefault arg-0 arg-1 arg-2 arg-3 'erased arg-6 e-2 e-3))))))
(define Unelab-TTImp-n--6801-6148-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--6968-7098-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--7907-7124 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-9 arg-8))))
(define Unelab-TTImp-n--9750-8657-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--9750-8659-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--9750-8658-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--9750-8657-toName arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)) arg-7)))))
(define Unelab-TTImp-n--9750-8658-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-7))) "]")))))))
(define Unelab-TTImp-n--6960-6307-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--6960-6306-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--6968-7097-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--6968-7097-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--6960-6308-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--6960-6307-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--6960-6309-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--6960-6308-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--6960-6309-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--6974-8152-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--6974-8153-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--6960-6305-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--6960-6305-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--6960-6306-getNth (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (Unelab-TTImp-case--6987-6364 arg-0 arg-1 arg-2 arg-3 'erased arg-6 arg-5 (TT-Core-getFnArgs 'erased arg-6))))
(define Unelab-TTImp-n--6962-6711-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--6962-6711-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--6962-6711-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--6960-6304-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--6801-6148-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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) 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))) (let ((act-27 (Context-Core-aliasName arg-1 e-10 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-11 (vector-ref sc5 1))) (vector 1 (vector 0 (vector 0 e-7 e-11) (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--6968-7098-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--6962-6731 'erased arg-2 e-2 e-3 arg-1 (Unelab-TTImp-n--6962-6711-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--7193-6512 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--9187-8225 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--6974-8152-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--9750-8659-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--6151-8210 (lambda (arg-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--6057-8173 (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--6057-8109-next arg-0 arg-1 arg-2 arg-0) eta-0))) (else (lambda (eta-0) (vector 1 arg-0)))))))
(define Utils-TTImp-case--6062-8145 (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--6061-8118 (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 arg-1))))(else (lambda (eta-0) (vector 1 0)))))))
(define Utils-TTImp-case--5994-8074 (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--5989-8048 (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--5994-8074 arg-0 e-2 e-3 (Prelude-unpack e-3))))))))))
(define Utils-TTImp-case--5640-7787 (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 16 arg-1 arg-0))))))
(define Utils-TTImp-case--5563-7770 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5640-7787 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 arg-0) arg-2))) (else (vector 16 arg-1 arg-0))))))
(define Utils-TTImp-case--5578-7732 (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--5563-7715 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Utils-TTImp-case--5578-7732 arg-0 arg-1 arg-2 arg-3 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-0 arg-2))) (else (vector 0 arg-1 arg-0))))))
(define Utils-TTImp-case--5351-7593 (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6)))))))
(define Utils-TTImp-case--5351-7555 (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) arg-6) (else (let ((e-2 (vector-ref sc0 1))) (vector 1 e-2 arg-6)))))))
(define Utils-TTImp-case--5351-7530 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 arg-0 (vector 0 ))) (else (vector 0 ))))))
(define Utils-TTImp-case--5145-7444 (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--5145-7398 (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--5145-7365 (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--5124-7343 (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--6057-8108-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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 arg-1)))(else (vector 1 0)))))))))))
(define Utils-TTImp-n--6057-8109-next (lambda (arg-0 arg-1 arg-2 arg-3) (Utils-TTImp-case--6062-8145 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--6057-8108-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--6057-8109-next arg-2 arg-1 arg-0 arg-2) ext-0)) (else (vector 1 arg-2)))))))))))
(define Utils-TTImp-substNamesTyC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 0 e-0 e-1 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-2))))))))
(define Utils-TTImp-substNamesDeclC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesTyC-39 arg-0 arg-1 arg-2 e-4)))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-7)))))) ((1) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (vector 1 e-8 e-9 (Utils-TTImp-substNamesDataC-39 arg-0 arg-1 arg-2 e-10)))))) ((5) (let ((e-11 (vector-ref sc0 1))) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (vector 5 e-11 e-12 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-13))))))(else arg-3)))))
(define Utils-TTImp-substNamesDataC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (vector 0 e-0 e-1 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-2) e-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesTyC-39 arg-0 arg-1 arg-2 eta-0)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 1 e-5 e-6 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-7))))))))))
(define Utils-TTImp-substNamesClauseC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((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-1 (vector 0 ) e-1))) arg-1))) (vector 0 e-0 (Utils-TTImp-substNamesC-39 arg-0 (vector 0 ) (vector 0 ) e-1) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-2))))))) ((1) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (let ((e-7 (vector-ref sc0 5))) (let ((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-1 (vector 0 ) e-4))) arg-1))) (vector 1 e-3 (Utils-TTImp-substNamesC-39 arg-0 (vector 0 ) (vector 0 ) e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 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-substNamesC-39 arg-0 arg-1 (vector 0 ) e-9)))))))))
(define Utils-TTImp-substNamesClause (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesClauseC-39 1 ext-0 ext-1 ext-2)))
(define Utils-TTImp-substNamesC-39 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-0)) (cond ((equal? sc0 1) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-54 (vector-ref sc1 1))) (let ((e-55 (vector-ref sc1 2))) (Utils-TTImp-case--5563-7715 e-55 e-54 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-55 arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((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))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (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))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3))))))) ((equal? sc0 0) (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((16) (let ((e-56 (vector-ref sc1 1))) (let ((e-57 (vector-ref sc1 2))) (Utils-TTImp-case--5563-7770 e-57 e-56 arg-2 arg-1 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-57) arg-1))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((1) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-5 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (let ((e-9 (vector-ref sc1 4))) (let ((e-10 (vector-ref sc1 5))) (let ((e-11 (vector-ref sc1 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc1 1))) (let ((e-13 (vector-ref sc1 2))) (let ((e-14 (vector-ref sc1 3))) (let ((e-15 (vector-ref sc1 4))) (let ((e-16 (vector-ref sc1 5))) (let ((e-17 (vector-ref sc1 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((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))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc1 1))) (let ((e-23 (vector-ref sc1 2))) (let ((e-24 (vector-ref sc1 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc1 1))) (let ((e-26 (vector-ref sc1 2))) (let ((e-27 (vector-ref sc1 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (let ((e-28 (vector-ref sc1 1))) (let ((e-29 (vector-ref sc1 2))) (let ((e-30 (vector-ref sc1 3))) (let ((e-31 (vector-ref sc1 4))) (vector 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc1 1))) (let ((e-33 (vector-ref sc1 2))) (let ((e-34 (vector-ref sc1 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc1 1))) (let ((e-36 (vector-ref sc1 2))) (let ((e-37 (vector-ref sc1 3))) (vector 12 e-35 e-36 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (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))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc1 1))) (let ((e-45 (vector-ref sc1 2))) (let ((e-46 (vector-ref sc1 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc1 1))) (let ((e-48 (vector-ref sc1 2))) (let ((e-49 (vector-ref sc1 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc1 1))) (let ((e-51 (vector-ref sc1 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc1 1))) (let ((e-53 (vector-ref sc1 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3)))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((1) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-3))) (vector 1 e-0 e-1 e-2 e-3 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-4) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-5)))))))))) ((2) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (let ((e-9 (vector-ref sc0 4))) (let ((e-10 (vector-ref sc0 5))) (let ((e-11 (vector-ref sc0 6))) (let ((boundC-39 (Prelude-maybe 'erased 'erased (lambda () arg-1) (lambda () (lambda (n) (vector 1 n arg-1))) e-9))) (vector 2 e-6 e-7 e-8 e-9 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-10) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-11)))))))))) ((3) (let ((e-12 (vector-ref sc0 1))) (let ((e-13 (vector-ref sc0 2))) (let ((e-14 (vector-ref sc0 3))) (let ((e-15 (vector-ref sc0 4))) (let ((e-16 (vector-ref sc0 5))) (let ((e-17 (vector-ref sc0 6))) (let ((boundC-39 (vector 1 e-14 arg-1))) (vector 3 e-12 e-13 e-14 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-15) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-16) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-17)))))))))) ((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))) (vector 4 e-18 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-19) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesClauseC-39 arg-0 arg-1 arg-2 eta-0)) e-21))))))) ((5) (let ((e-22 (vector-ref sc0 1))) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (let ((boundC-39 (List-Prelude-C-43C-43 'erased (TTImp-TTImp-definedInBlock (vector 0 ) e-23) arg-1))) (vector 5 e-22 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesDeclC-39 arg-0 arg-1 arg-2 eta-0)) e-23) (Utils-TTImp-substNamesC-39 arg-0 boundC-39 arg-2 e-24))))))) ((8) (let ((e-25 (vector-ref sc0 1))) (let ((e-26 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 3))) (vector 8 e-25 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-26) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-27)))))) ((9) (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 9 e-28 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-29) e-30 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-31))))))) ((10) (let ((e-32 (vector-ref sc0 1))) (let ((e-33 (vector-ref sc0 2))) (let ((e-34 (vector-ref sc0 3))) (vector 10 e-32 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-33) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-34)))))) ((12) (let ((e-35 (vector-ref sc0 1))) (let ((e-36 (vector-ref sc0 2))) (let ((e-37 (vector-ref sc0 3))) (vector 12 e-35 e-36 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 eta-0)) e-37)))))) ((14) (let ((e-38 (vector-ref sc0 1))) (let ((e-39 (vector-ref sc0 2))) (vector 14 e-38 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-39))))) ((17) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (let ((e-42 (vector-ref sc0 3))) (let ((e-43 (vector-ref sc0 4))) (vector 17 e-40 e-41 e-42 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-43))))))) ((18) (let ((e-44 (vector-ref sc0 1))) (let ((e-45 (vector-ref sc0 2))) (let ((e-46 (vector-ref sc0 3))) (vector 18 e-44 e-45 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-46)))))) ((19) (let ((e-47 (vector-ref sc0 1))) (let ((e-48 (vector-ref sc0 2))) (let ((e-49 (vector-ref sc0 3))) (vector 19 e-47 e-48 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-49)))))) ((20) (let ((e-50 (vector-ref sc0 1))) (let ((e-51 (vector-ref sc0 2))) (vector 20 e-50 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-51))))) ((21) (let ((e-52 (vector-ref sc0 1))) (let ((e-53 (vector-ref sc0 2))) (vector 21 e-52 (Utils-TTImp-substNamesC-39 arg-0 arg-1 arg-2 e-53)))))(else arg-3))))))))
(define Utils-TTImp-substNames (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesC-39 1 ext-0 ext-1 ext-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-substBindVars (lambda (ext-0 ext-1 ext-2) (Utils-TTImp-substNamesC-39 0 ext-0 ext-1 ext-2)))
(define Utils-TTImp-nameNum (lambda (arg-0) (Utils-TTImp-case--5989-8048 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--5124-7343 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--5145-7365 e-46 e-44 arg-2 arg-1 (Prelude-C-38C-38 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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 arg-1 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 arg-1 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 arg-1 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 arg-1 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 arg-1 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 arg-1 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-findAllNames (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Utils-TTImp-case--5351-7530 e-1 e-0 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-0)))))) ((1) (let ((e-5 (vector-ref sc0 4))) (let ((e-6 (vector-ref sc0 5))) (let ((e-7 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-5)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-8 (vector-ref sc1 1))) (vector 1 e-8 arg-0))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-6) (Utils-TTImp-findAllNames envC-39 e-7))))))) ((2) (let ((e-11 (vector-ref sc0 4))) (let ((e-12 (vector-ref sc0 5))) (let ((e-13 (vector-ref sc0 6))) (let ((envC-39 (let ((sc1 e-11)) (case (vector-ref sc1 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc1 1))) (vector 1 e-2 arg-0))))))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames envC-39 e-12) (Utils-TTImp-findAllNames envC-39 e-13))))))) ((8) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-15) (Utils-TTImp-findAllNames arg-0 e-16))))) ((9) (let ((e-18 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 4))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-18) (Utils-TTImp-findAllNames arg-0 e-20))))) ((10) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (List-Prelude-C-43C-43 'erased (Utils-TTImp-findAllNames arg-0 e-22) (Utils-TTImp-findAllNames arg-0 e-23))))) ((17) (let ((e-26 (vector-ref sc0 3))) (let ((e-27 (vector-ref sc0 4))) (vector 1 e-26 (Utils-TTImp-findAllNames arg-0 e-27))))) ((18) (let ((e-30 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-30))) ((19) (let ((e-33 (vector-ref sc0 3))) (Utils-TTImp-findAllNames arg-0 e-33))) ((20) (let ((e-35 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-35))) ((21) (let ((e-37 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-37))) ((22) (let ((e-39 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-39))) ((25) (let ((e-41 (vector-ref sc0 2))) (Utils-TTImp-findAllNames arg-0 e-41))) ((12) (let ((e-44 (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Utils-TTImp-findAllNames arg-0 eta-0))) e-44)))(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--12835-11567 (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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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--12606-11137 (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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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--12208-10725 (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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 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--12104-10575 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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--11911-10435 (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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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--11776-10234 (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--11698-10156 (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--11583-10063 (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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--9989-9221 (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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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--9094-7901 (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--9094-7528-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--9094-7529-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--9129-7753 (lambda (arg-0 arg-1 arg-2 arg-3 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--9094-7528-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--9094-7528-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--9129-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) (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--9094-7528-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--9094-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))
(define TTImp-TTImp-case--9128-7551 (lambda (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--9094-7527-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--8842-7345 (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--7648-6187-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--9094-7527-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--9128-7551 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 arg-6) e-1)))))))) (else (vector 0 ))))))
(define TTImp-TTImp-n--9598-8098-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--9090-7496-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--9090-7496-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--9090-7496-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--9090-7496-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--9094-7528-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--9094-7529-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--9094-7529-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--9094-7529-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--9094-7529-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--9094-7529-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--9094-7529-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--9094-7529-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--9094-7529-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--9094-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8))))))))))(else (TTImp-TTImp-n--9094-7529-impAs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3 arg-8)))))))))))
(define TTImp-TTImp-n--9592-7967-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--9592-7968-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--9598-8099-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--9592-7968-getFieldName arg-0 arg-1 eta-0)) arg-6)))
(define TTImp-TTImp-n--9598-8100-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--9598-8098-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--9598-8099-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--9598-8097-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--9094-7528-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--9094-7528-findImps arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-5) eta-0)))))))) ((2) (TTImp-TTImp-case--9129-7646 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--9094-7527-updateNs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 arg-6)))(else (TTImp-TTImp-case--9129-7753 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) arg-438 arg-439)))) (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--9592-7969-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--9592-7970-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--9592-7969-expandNS arg-0 arg-1 arg-2 (TTImp-TTImp-n--9592-7967-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--9592-7969-expandNS arg-0 arg-1 arg-2 e-19) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9592-7969-expandNS arg-0 arg-1 arg-2 eta-0)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9592-7967-getName arg-0 arg-1 eta-0)) e-22)))))) ((1) (let ((e-24 (vector-ref sc1 2))) (vector 1 (TTImp-TTImp-n--9592-7969-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9592-7970-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9592-7970-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--9592-7969-expandNS arg-0 arg-1 arg-2 e-29) (TTImp-TTImp-n--9598-8101-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--9598-8101-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--9592-7969-expandNS arg-0 arg-1 arg-10 arg-8) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-n--9592-7969-expandNS arg-0 arg-1 (TTImp-TTImp-n--9598-8097-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--9598-8100-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--9598-8099-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--7648-6187-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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-1)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-5)))) arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IField arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__IField arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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) ")")))))))))))
(define TTImp-TTImp-show_Show__ImpTy (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%claim " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-2) ")")))))))))
(define TTImp-TTImp-show_Show__ImpRecord (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "record " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (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) (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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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) (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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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) (TT-Core-show_Show__C-40PiInfoC-32C-36tC-41 'erased (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) (TT-Core-showPrec_Show__C-40PiInfoC-32C-36tC-41 'erased (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)))) (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)))) e-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Strings-Prelude-C-43C-43 (Name-Core-showSep "\xa;\x9;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__IField eta-0)) e-4)) "\xa;")))))))))))))))
(define TTImp-TTImp-show_Show__ImpDecl (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (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)))) e-3) (Strings-Prelude-C-43C-43 " " (TTImp-TTImp-show_Show__ImpTy e-4)))))) ((1) (let ((e-7 (vector-ref sc0 3))) (TTImp-TTImp-show_Show__ImpData e-7))) ((2) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%def " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-9) (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-10) ")"))))))) ((3) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "parameters " (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) (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)))) e-12) (Strings-Prelude-C-43C-43 "\xa;\x9;" (Name-Core-showSep "\xa;\x9;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__ImpDecl arg-1)) e-13)))))))) ((4) (let ((e-17 (vector-ref sc0 4))) (TTImp-TTImp-show_Show__ImpRecord e-17))) ((5) (let ((e-19 (vector-ref sc0 2))) (let ((e-20 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "namespace " (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-19) (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (TTImp-TTImp-show_Show__ImpDecl arg-1)) e-20))))))) ((6) (let ((e-22 (vector-ref sc0 2))) (let ((e-23 (vector-ref sc0 3))) (let ((e-24 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%transform " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-22) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-23) (Strings-Prelude-C-43C-43 " ==> " (TTImp-TTImp-show_Show__RawImp e-24)))))))))) ((7) (let ((e-26 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%runElab " (TTImp-TTImp-show_Show__RawImp e-26)))) ((8) "[externally defined pragma]") (else (let ((e-28 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%logging " (Prelude-show_Show__Nat e-28))))))))
(define TTImp-TTImp-show_Show__ImpData (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "(%data " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-1) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-2) (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__ImpTy x)) (lambda (d) (lambda (x) (TTImp-TTImp-showPrec_Show__ImpTy d x)))) e-4) ")")))))))))) (else (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%datadecl " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-6) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-7) ")")))))))))))
(define TTImp-TTImp-show_Show__ImpClause (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-1) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp 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 (TTImp-TTImp-show_Show__RawImp e-4) (Strings-Prelude-C-43C-43 " with " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-5) (Strings-Prelude-C-43C-43 "\xa;\x9;" (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-7))))))))) (else (let ((e-9 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-9) " impossible")))))))
(define TTImp-TTImp-show_Show__IFieldUpdate (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (Name-Core-showSep "->" e-0) (Strings-Prelude-C-43C-43 " = " (TTImp-TTImp-show_Show__RawImp 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 " $= " (TTImp-TTImp-show_Show__RawImp e-3))))))))))
(define TTImp-TTImp-show_Show__IField (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((1) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " : " (TTImp-TTImp-show_Show__RawImp e-4))))(else (Strings-Prelude-C-43C-43 "{" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-3) (Strings-Prelude-C-43C-43 " : " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp e-4) "}")))))))))))))
(define TTImp-TTImp-show_Show__FnOpt (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "%inline") ((1) "%tcinline") ((2) (let ((e-0 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%hint " (Prelude-show_Show__Bool e-0)))) ((3) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%globalhint " (Prelude-show_Show__Bool e-1)))) ((4) "%extern") ((5) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%foreign " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TTImp-TTImp-show_Show__RawImp eta-0)) e-2))))) ((6) "%invertible") ((7) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 e-3)) (case (vector-ref sc1 0) ((0) "total") ((1) "covering") (else "partial"))))) ((8) "%macro") (else (let ((e-4 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "%spec " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Name-Core-show_Show__Name eta-0)) e-4)))))))))
(define TTImp-TTImp-showPrec_Show__RawImp (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__RawImp arg-1)))
(define TTImp-TTImp-showPrec_Show__ImpTy (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__ImpTy arg-1)))
(define TTImp-TTImp-showPrec_Show__ImpDecl (lambda (arg-0 arg-1) (TTImp-TTImp-show_Show__ImpDecl arg-1)))
(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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-0)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-4)))) arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IField arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-3275) (TTImp-TTImp-weaken_Weaken__NestedNames n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TTImp-TTImp-weakenNs_Weaken__NestedNames vars ns arg-3279)))))))
(define TTImp-TTImp-__Impl_TTC_RawImp (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpTy (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpTy arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpTy arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpRecord (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpRecord arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpRecord arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpDecl (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpDecl arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpDecl arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpData (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpData arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpData arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_ImpClause (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_IFieldUpdate (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IFieldUpdate arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IFieldUpdate arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_IField (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__IField arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__IField arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_FnOpt (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__FnOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__FnOpt arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_DataOpt (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__DataOpt arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__DataOpt arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_BindMode (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__BindMode arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__BindMode arg-2124 eta-0))))))
(define TTImp-TTImp-__Impl_TTC_AltType (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__AltType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__AltType arg-2124 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-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-438 arg-439))))))
(define TTImp-TTImp-__Impl_Eq_DataOpt (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439))))))
(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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--8842-7345 'erased e-11 e-10 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--9090-7496-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (TTImp-TTImp-n--9592-7970-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--5029-3162 (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--5029-3162 (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))))
(define EvalOpts-Value-Core-holesOnly (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define Value-Core-getLoc (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-6 (vector-ref sc0 1))) e-6)) ((2) (let ((e-10 (vector-ref sc0 1))) e-10)) ((3) (let ((e-16 (vector-ref sc0 1))) e-16)) ((4) (let ((e-22 (vector-ref sc0 1))) e-22)) ((5) (let ((e-27 (vector-ref sc0 1))) e-27)) ((6) (let ((e-31 (vector-ref sc0 1))) e-31)) ((7) (let ((e-36 (vector-ref sc0 1))) e-36)) ((8) (let ((e-41 (vector-ref sc0 1))) e-41)) ((9) (let ((e-44 (vector-ref sc0 1))) e-44)) (else (let ((e-47 (vector-ref sc0 1))) e-47))))))
(define EvalOpts-Value-Core-fuel (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
(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--3935-2558 (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--3935-2521 (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--3847-2436 (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--3596-2292 (lambda (arg-0 arg-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--3596-2218 (lambda (arg-0 arg-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--3483-2194 (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--3596-2218 '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--3596-2292 '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--3483-2120 (lambda (arg-0 arg-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--2742-2096 (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--3483-2120 '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--3483-2194 '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--3370-2042 (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--3228-2000 (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--3253-1942 (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--3228-1900 (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--2742-1880 (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--3228-1900 '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--3228-2000 '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--3056-1818 (lambda (arg-0 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--3056-1750 (lambda (arg-0 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--2953-1728 (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--3056-1750 '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--3056-1818 '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--2953-1660 (lambda (arg-0 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--2742-1638 (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--2953-1660 '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--2953-1728 '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--2814-1588 (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--2814-1534 (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--2742-1516 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (IntMap-Data-case--2814-1534 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-3))) (else (IntMap-Data-case--2814-1588 'erased arg-1 arg-2 arg-3 arg-4 (IntMap-Data-treeDelete 'erased 0 arg-4 arg-1)))))))
(define IntMap-Data-case--2742-1468 (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--2662-1399 (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--2403-1302 (lambda (arg-0 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--2403-1191 (lambda (arg-0 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--2240-1160 (lambda (arg-0 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--2403-1191 '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--2403-1302 '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--2240-1050 (lambda (arg-0 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--1885-1019 (lambda (arg-0 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--2240-1050 '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--2240-1160 '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--2014-941 (lambda (arg-0 arg-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--2014-852 (lambda (arg-0 arg-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--1885-825 (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--2014-852 '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--2014-941 '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--1885-723 (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--1778-662 (lambda (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--1655-615 (lambda (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--1778-662 '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--1655-567 (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--1655-524 (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--3769-2348-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--3769-2348-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3769-2348-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--3769-2348-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (IntMap-Data-n--3769-2348-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--3769-2348-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--1655-524 '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--1655-567 '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--1655-615 '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--1885-723 '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--1885-825 '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--1885-1019 '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--2662-1399 '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--2742-1468 '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--2742-1516 '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--2742-1638 '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--2742-1880 '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--2742-2096 '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--3847-2436 '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--3935-2521 'erased e-3 arg-1 (IntMap-Data-treeDelete 'erased 0 arg-1 e-3)))(else (let ((e-4 (- e-2 1))) (IntMap-Data-case--3935-2558 '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--3793-7175 (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--3729-7154 (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--3793-7175 arg-0 arg-1 arg-2 arg-3 e-2 e-3 (Env-Core-isUsed 'erased 0 arg-3)))))))
(define Env-Core-case--3729-7113 (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--3638-7038 (lambda (arg-0 arg-1 arg-2 arg-3) (vector 1 (+ 1 arg-3))))
(define Env-Core-case--3437-6860 (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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) arg-0 arg-2 'erased arg-7)))))))
(define Env-Core-case--2906-6327 (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--2885-6302 (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--3437-6915-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--3437-6915-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--3437-6849-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--3437-6930-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--3437-6930-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--3437-6930-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--3729-7113 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--3729-7154 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))))))))))))
(define Env-Core-length (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((0) 0) (else (let ((e-5 (vector-ref sc0 2))) (+ 1 (Env-Core-length 'erased 'erased e-5))))))))
(define Env-Core-isUsed (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-124C-124 (Prelude-C-61C-61_Eq__Nat arg-1 (TT-Core-varIdx 'erased e-2)) (lambda () (Env-Core-isUsed 'erased arg-1 e-3))))))))))
(define Env-Core-getBinderUnder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (let ((e-1 (vector-ref sc0 1))) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 arg-4)) (cond ((equal? sc1 0) (let ((sc2 arg-7)) (let ((e-7 (vector-ref sc2 1))) (TT-Core-map_Functor__Binder 'erased 'erased (let ((sc3 arg-2)) (let ((e-3 (vector-ref sc3 2))) (lambda (arg-8) (((e-3 e-2) (List-Data-reverse 'erased (vector 1 e-1 arg-5))) arg-8)))) e-7))))(else (let ((e-3 (- arg-4 1))) (let ((sc1 arg-7)) (let ((e-13 (vector-ref sc1 2))) (Env-Core-getBinderUnder 'erased 'erased arg-2 e-2 e-3 (vector 1 e-1 arg-5) 'erased e-13))))))))))))
(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--3437-6860 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--3437-6849-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--3437-6915-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--3437-6930-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--2885-6302 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--7703-4719 (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--7558-4597 (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--7499-4538 (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--7440-4480 (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--7004-4016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) arg-5))
(define Core-Core-case--6976-4002 (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--7004-4016 '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--6803-3813 (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--6673-3678 (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--5393-2437 (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--5159-2412 (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--5159-2314 (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--5097-2163 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) "older") (else "newer")))))
(define Core-Core-n--5159-2489-showRig (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "linear" "irrelevant" (lambda (eta-0) "unrestricted") ext-0)))
(define Core-Core-n--5159-2490-showRel (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Semiring-Algebra-elimSemi 'erased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "relevant" "irrelevant" (lambda (eta-0) "non-linear") ext-0)))
(define Core-Core-n--5159-3054-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--5097-2163 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--5159-2489-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--5159-2490-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--5159-3054-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--7004-4016 '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-3916) (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-3916 eta-0)))) (lambda (a) (lambda (arg-3917) (lambda (arg-3918) (lambda (eta-0) (Core-Core-catch_Catchable__Core_Error 'erased arg-3917 arg-3918 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)))))))))))))
(define Core-Core-traverseVect (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) (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 1 eta-3 eta-4))))) (arg-3 e-3) eta-1)) (Core-Core-traverseVect 'erased 'erased 'erased arg-3 e-4) eta-0)))))))))
(define Core-Core-traverseOpt (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) (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))))))) (arg-2 e-2) eta-0))))))))
(define Core-Core-traverseC-39 (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 (List-Data-reverse 'erased arg-4)))) (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 (let ((e-5 (vector-ref sc1 1))) ((Core-Core-traverseC-39 'erased 'erased arg-2 e-3 (vector 1 e-5 arg-4)) eta-0))))))))))))))
(define PiInfo-Core-Core-traverse (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 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 ((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-5 (vector-ref sc1 1))) (vector 1 (vector 3 e-5))))))))))))))
(define Core-Core-traverse (lambda (arg-0 arg-1 arg-2 arg-3) (Core-Core-traverseC-39 'erased 'erased arg-2 arg-3 (vector 0 ))))
(define Binder-Core-Core-traverse (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))) (lambda (eta-0) (let ((act-24 ((PiInfo-Core-Core-traverse 'erased 'erased 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 ((act-25 ((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 0 e-1 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 ((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-8 (vector-ref sc1 1))) (let ((act-25 ((arg-2 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 ((PiInfo-Core-Core-traverse 'erased 'erased 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 ((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-6 (vector-ref sc2 1))) (vector 1 (vector 2 e-9 e-5 e-6))))))))))))))))) ((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 ((PiInfo-Core-Core-traverse 'erased 'erased arg-2 e-14) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((arg-2 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))) (vector 1 (vector 3 e-13 e-5 e-6))))))))))))))))) ((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 ((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 ((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))) (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 ((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))) (vector 1 (vector 5 e-21 e-5)))))))))))))))
(define Core-Core-throw (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-2 (vector-ref sc0 1))) (lambda (arg-4) ((e-2 'erased) arg-4))))))
(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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-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))))
(define Core-Core-coreLift (lambda (arg-0 arg-1 ext-0) (let ((act-24 (arg-1 ext-0))) (vector 1 act-24))))
(define Core-Core-coreFail (lambda (arg-0 arg-1 ext-0) (vector 0 arg-1)))
(define Core-Core-cond (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 ((e-1 (e-6))) (let ((sc2 e-1)) (cond ((equal? sc2 0) (e-7)) (else (Core-Core-cond 'erased e-3 arg-2)))))))))))))))
(define Core-Core-catch (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 2))) (lambda (arg-4) (lambda (arg-5) (((e-3 'erased) arg-4) arg-5)))))))
(define Core-Core-anyM (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 ((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) (vector 1 0)) (else ((Core-Core-anyM 'erased arg-1 e-3) eta-0)))))))))))))))))
(define Core-Core-allM (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))) (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) ((Core-Core-allM 'erased arg-1 e-3) eta-0)) (else (vector 1 1)))))))))))))))))
(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 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 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--25887-20682 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--25887-20653-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--25726-20506 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--25678-20463 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--25600-20396 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--25540-20366 (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--25478-20315 (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--25392-20243 (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--25319-20171 (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--25246-20099 (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--25153-19962 (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--25037-19845 (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--24965-19818 (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--24911-19760 (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--24857-19709 (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--24803-19658 (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--24725-19599 (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--24635-19526 (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--24486-19385 (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--24417-19317 (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--24349-19250 (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--24281-19183 (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--24213-19116 (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--24145-19049 (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--24058-18928 (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--24001-18901 (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--23931-18849 (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--23908-18777 (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--23811-18739 (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--23781-18676 (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--23711-18638 (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--23641-18569 (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--23571-18500 (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--23491-18421 (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--23411-18342 (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--23331-18263 (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--23245-18183 (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--23183-18112 (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--23123-18025 (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--23063-18002 (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))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 (let ((sc2 (let ((sc3 arg-1)) (let ((e-62 (vector-ref sc3 1))) e-62)))) (let ((e-46 (vector-ref sc2 2))) e-46)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 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--22871-17822 (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))) (let ((e-36 (vector-ref sc1 11))) (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-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 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--22787-17742 (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))) (let ((e-36 (vector-ref sc1 11))) (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-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 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--22628-17578 (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--22492-17501 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--22223-17424 (lambda (arg-0 arg-1 arg-2 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--22223-17210-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--22275-17291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--22223-17210-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--22238-17244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--22223-17210-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--22002-17025 (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--21930-17000 (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--22002-17025 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--21821-16856 (lambda (arg-0 arg-1 arg-2 arg-3 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--21677-16722 (lambda (arg-0 arg-1 arg-2 arg-3 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--21596-16680 (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--21545-16593 (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--21452-16558 (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--21436-16497 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--21363-16457 (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--21284-16383 (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--21231-16333 (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--21178-16281 (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--20957-16188 (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--20957-16097 (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--20905-16041 (lambda (arg-0 arg-1 arg-2 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--20890-15993 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))) arg-0 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))) 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--20905-16041 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--20837-15974 (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--20704-15857 (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--20622-15781 (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--20418-15684 (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--20418-15603 (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--20328-15549 (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--20328-15504 (lambda (arg-0 arg-1 arg-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--20203-15400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20182-15371 (lambda (arg-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--20162-15356 (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--20182-15371 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--20037-15267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20016-15238 (lambda (arg-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--19996-15223 (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--20016-15238 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--19898-15139 (lambda (arg-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--19878-15124 (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--19898-15139 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--19772-15031 (lambda (arg-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--19606-14867-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--19606-15016 (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--19772-15031 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--19612-14891 (lambda (arg-0 arg-1 arg-2 arg-3 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--19606-14867-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--19606-14867-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--19546-14851 (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--19486-14794 (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--19388-14685 (lambda (arg-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--19368-14670 (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--19388-14685 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--19032-14443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--19006-14310-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--19006-14310-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--19006-14311-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--19006-14311-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--19032-14374 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--19006-14336 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--19032-14374 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--19006-14310-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--19006-14310-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--19006-14311-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--19006-14311-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--18819-14201 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (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 (Context-Core-hideName arg-5 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 e-25))))))))))))))))))))))))))))))
(define Context-Core-case--18800-14147 (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) (let ((act-24 (set-box! arg-2 (let ((sc3 arg-3)) (let ((e-0 (vector-ref sc3 1))) (let ((e-29 (vector-ref sc3 2))) (let ((e-28 (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-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 (Context-Core-hideName e-6 e-0) e-29 e-28 e-3 e-4 e-5 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-24))))(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--18591-13960 (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--18503-13911 (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--18483-13863 (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--18395-13813 (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--18375-13765 (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--18183-13621 (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--18163-13575 (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--18007-13472 (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--17987-13418 (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--17846-13339 (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--17826-13273 (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--17728-13223 (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--17708-13167 (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--17434-12899 (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--17388-12848 (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--17319-12820 (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--17222-12703 (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--17176-12663 (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--17123-12637 (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--17048-12570 (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--17029-12526 (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--16952-12483 (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--16933-12439 (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--16856-12396 (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--16837-12352 (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--16762-12311 (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--16743-12267 (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--16643-12222 (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--16624-12155 (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--16605-12140 (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--16624-12155 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--16482-12056 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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--16463-12007 (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-newAlias arg-1 arg-0 (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 ((act-25 (set-box! arg-2 (let ((sc2 arg-3)) (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-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-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)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Context-Core-case--16384-11975 (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--16365-11920 (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--16211-11888 (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--16211-11797 (lambda (arg-0 arg-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--16192-11764 (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--16211-11797 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--16104-11675 (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--16095-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))) (let ((_-0 (vector 1 e-1))) (Context-Core-case--16104-11675 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--16037-11645 (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--15981-11592 (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--15930-11542 (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--15859-11484 (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--15803-11398 (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))) (Context-Core-n--15732-11324-findAlias arg-0 arg-1 e-1))) (else (lambda (eta-0) (vector 1 arg-0)))))))
(define Context-Core-case--15732-11384 (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))) (Context-Core-case--15803-11398 arg-0 arg-1 arg-2 e-1 (StringMap-Data-lookup 'erased e-1 (let ((sc1 (let ((sc2 arg-2)) (let ((e-0 (vector-ref sc2 1))) e-0)))) (let ((e-3 (vector-ref sc1 4))) e-3)))))) (else (lambda (eta-0) (vector 1 arg-0)))))))
(define Context-Core-case--15736-11339 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-4))) (else (Context-Core-n--15732-11324-findAlias arg-0 arg-1 arg-5))))))
(define Context-Core-case--15571-11235 (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--15571-11170-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--15574-11185 (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--15469-11110 (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))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 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--12400-8301 (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--12399-8205 (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--12265-8022 (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--12264-8003 (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--11248-7136 (lambda (arg-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--11247-7032 (lambda (arg-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--10622-6671 (lambda (arg-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--10622-6621 (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--10621-6412 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10546-6360 (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--10545-6336 (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--10466-6256 (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--10361-6210 (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))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-1 e-6 e-7 e-8 e-9 e-10))))))))))))))
(define Context-Core-case--10361-6181 (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))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10)))))))))))))
(define Context-Core-case--10331-6137 (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--10331-6109-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-13 (vector-ref sc3 1))) (let ((e-1 (vector-ref sc3 2))) (let ((e-2 (vector-ref sc3 3))) (let ((e-3 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-13 e-1 e-2 e-3 e-4 0 (IntMap-Data-empty 'erased) e-7 e-8 e-9 e-10))))))))))))))))))))))))(else (lambda (eta-0) (vector 1 (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-11 e-1 e-2 e-3 e-4 e-0 e-6 e-7 e-8 e-9 e-10)))))))))))))))))))))))
(define Context-Core-case--10313-6107 (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))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10)))))))))))))))
(define Context-Core-case--10290-6084 (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-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (NameMap-Data-insert 'erased arg-1 (vector 0 ) e-10))))))))))))))))
(define Context-Core-case--10199-6045 (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))) (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 (vector 0 ) e-1))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Context-Core-case--10199-6001 (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--9837-5986 (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--10199-6045 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--10071-5902 (lambda (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) (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-7)) arg-6) arg-5)) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5))))))
(define Context-Core-case--10041-5873 (lambda (arg-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))) (Context-Core-case--10071-5902 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-0)) arg-6))))))))) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5))))))
(define Context-Core-case--9842-5848 (lambda (arg-0 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-lookupCtxtExact (vector 9 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--10071-5902 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-4) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-1)) arg-6)))))) eta-0)))) (else ((Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5) eta-0)))))))))))(else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-6 arg-5))))))
(define Context-Core-case--9920-5768 (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) (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 (vector 1 (vector 0 arg-3 (vector 0 arg-2 arg-6)) arg-5) arg-4)) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4))))))
(define Context-Core-case--9893-5741 (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))) (Context-Core-case--9920-5768 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-0)) arg-5))))))))) (else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4))))))
(define Context-Core-case--9842-5718 (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-lookupCtxtExact (vector 9 arg-2) arg-0) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((sc2 e-5)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((_-0 (vector 1 e-1))) ((Context-Core-case--9920-5768 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-1 _-0 (Prelude-C-38C-38 (Context-Core-n--9837-5666-matches arg-0 arg-1 arg-1 arg-3) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Context-Core-n--9837-5667-resn arg-0 arg-1 eta-1)) arg-5)))))) eta-0)))) (else ((Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4) eta-0)))))))))))(else (Context-Core-n--9837-5668-lookupPossibles arg-0 arg-1 arg-5 arg-4))))))
(define Context-Core-case--9725-5647 (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--9732-5612 (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--9725-5568 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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--9511-5538 (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--9600-5471 (lambda (arg-0 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--9518-5453 (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--9600-5471 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--9518-5390 (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--9511-5375 (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--9518-5390 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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--9600-5471 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--9403-5351 (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--9410-5317 (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--9403-5274 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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--9333-5222 (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--9321-5206 (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--9333-5222 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--9266-5179 (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))) (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 e-10)))))))))))))))
(define Context-Core-case--9196-5148 (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-12 (vector-ref sc1 3))) (let ((e-11 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-5 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10)))))))))))))))))))))
(define Context-Core-case--9196-5096 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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--9185-5080 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 arg-1 e-6) e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))
(define Context-Core-case--9130-5055 (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))) (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 e-10)))))))))))))))
(define Context-Core-case--9060-5024 (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-12 (vector-ref sc1 3))) (let ((e-11 (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))) (vector 0 e-0 e-1 e-12 e-11 e-4 e-5 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10)))))))))))))))))))))
(define Context-Core-case--9060-4972 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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--9049-4956 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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-13 (vector-ref sc3 3))) (let ((e-12 (vector-ref sc3 4))) (let ((e-4 (vector-ref sc3 5))) (let ((e-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-4 e-11 (IntMap-Data-insert 'erased e-2 (vector 1 arg-1) e-6) e-7 e-8 e-9 e-10)))))))))))))))))))))))))))))
(define Context-Core-case--8993-4928 (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))) (vector 0 e-0 e-1 e-2 (Context-Core-addAlias arg-2 arg-1 arg-3 e-3) e-4 e-5 e-6 e-7 e-8 e-9 e-10)))))))))))))))
(define Context-Core-case--8983-4901 (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 (let ((sc1 e-3)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-12 (vector-ref sc1 3))) (let ((e-11 (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))) (vector 0 e-0 e-1 e-12 (Context-Core-addAlias arg-2 arg-1 e-2 e-11) e-4 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))
(define Context-Core-case--8946-4870 (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--8860-4837 (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))) (let ((e-10 (vector-ref sc0 11))) (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 e-10))))))))))))))
(define Context-Core-case--8788-4736 (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 1 arg-3 arg-2 arg-1) (vector 0 )) arg-0)) (else (let ((e-2 (vector-ref sc0 1))) (StringMap-Data-insert 'erased arg-4 (vector 1 (vector 1 arg-3 arg-2 arg-1) e-2) arg-0)))))))
(define Context-Core-case--8781-4710 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((0) arg-0) (else (let ((e-2 (vector-ref sc0 1))) (Context-Core-case--8788-4736 arg-0 arg-1 arg-2 arg-3 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
(define Context-Core-case--8719-4671 (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--8713-4649 (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--8719-4671 arg-0 arg-1 arg-2 e-2 (StringMap-Data-lookup 'erased e-2 arg-0))))))))
(define Context-Core-case--5782-2063 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) " [impl]") (else "")))))
(define Context-Core-n--22948-17841-visible (lambda (arg-0 arg-1 arg-2) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-2 arg-0)))
(define Context-Core-n--21657-16703-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--21677-16722 '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--21930-16944-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--26367-21089-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--26367-21088-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--11610-7505-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--9837-5667-resn (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 e-3)) (let ((e-6 (vector-ref sc1 1))) e-6))))))
(define Context-Core-n--15571-11170-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--21786-16831-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--21821-16856 '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--9837-5666-matches (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 ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (List-Data-isPrefixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 e-2)))(else 0)))))(else 0)))))
(define Context-Core-n--9837-5668-lookupPossibles (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (List-Data-reverse 'erased 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 ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (Context-Core-case--9842-5718 arg-0 arg-1 e-5 e-4 e-3 arg-2 (NameMap-Data-lookup 'erased e-4 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10))))))) (else (let ((e-6 (vector-ref sc1 1))) (let ((e-7 (vector-ref sc1 2))) (let ((e-8 (vector-ref sc1 3))) (Context-Core-case--9842-5848 arg-0 arg-1 e-8 e-7 e-6 e-3 arg-2 (NameMap-Data-lookup 'erased e-7 (let ((sc2 arg-0)) (let ((e-10 (vector-ref sc2 11))) e-10)))))))))))))))))
(define Context-Core-n--22088-17084-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--22088-17084-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3))) (else (Context-Core-n--22088-17084-justPos 'erased arg-1 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-2) e-3)))))))))))
(define Context-Core-n--16092-11653-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--16104-11675 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--19006-14310-isDefault (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
(define Context-Core-n--11927-7700-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--11927-7700-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
(define Context-Core-n--11926-7668-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--11926-7668-insertAll 'erased arg-1 arg-2 (NameMap-Data-insert 'erased e-5 e-7 arg-3) e-3) eta-0)))))))))))))))))
(define Context-Core-n--19606-14867-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--19612-14891 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--21541-16580-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--21545-16593 arg-0 arg-1 e-2 e-3 (Options-Core-C-61C-61_Eq__CG arg-0 e-2)))))))
(define Context-Core-n--11609-7364-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--15732-11324-findAlias (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (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) ((1) (let ((e-4 (vector-ref sc1 1))) (let ((e-5 (vector-ref sc1 2))) (let ((e-6 (vector-ref sc1 3))) (Context-Core-case--15736-11339 arg-0 arg-1 e-6 e-5 e-4 e-3 (Name-Core-C-61C-61_Eq__Name e-5 arg-0))))))(else (Context-Core-n--15732-11324-findAlias arg-0 arg-1 e-3)))))))))))
(define Context-Core-n--19006-14311-direct (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Builtin-snd 'erased 'erased ext-0)))
(define Context-Core-n--21786-16806-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--22223-17209-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--10331-6109-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-2 e-6 e-7) eta-0))) ((Context-Core-n--10331-6109-commitStaged arg-0 e-3 arg-2) eta-0)))))))))))))
(define Context-Core-n--22948-17840-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--22948-17840-allParents arg-0 arg-1 e-3)))))))))
(define Context-Core-n--22223-17208-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--26367-21088-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--25887-20653-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--22223-17210-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--22223-17209-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--22223-17210-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)))))))
(define Context-Core-show_Show__DefFlag (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "inline") ((1) "invertible") ((2) "overloadable") ((3) "tcinline") ((4) (let ((e-0 (vector-ref sc0 1))) (TT-Core-show_Show__TotalReq e-0))) ((5) "blockedhint") ((6) "macro") ((7) "partialeval") (else "allguarded")))))
(define Context-Core-show_Show__Def (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "undefined") ((1) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (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-1) (Strings-Prelude-C-43C-43 ";\xa;Compile time tree: " (Strings-Prelude-C-43C-43 (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-1 e-2) (Strings-Prelude-C-43C-43 "\xa;Run time tree: " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 e-1 e-3))))))))) ((5) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "DataCon " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-6) (Prelude-maybe 'erased 'erased (lambda () "") (lambda () (lambda (n) (Strings-Prelude-C-43C-43 " (newtype by " (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__Bool x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Bool d x)))) (vector 0 (lambda (x) (Prelude-show_Show__Nat x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__Nat d x))))) n) ")")))) e-7))))))))) ((6) (let ((e-8 (vector-ref sc0 1))) (let ((e-9 (vector-ref sc0 2))) (let ((e-10 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 6))) (let ((e-14 (vector-ref sc0 7))) (let ((e-15 (vector-ref sc0 8))) (Strings-Prelude-C-43C-43 "TyCon " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-9) (Strings-Prelude-C-43C-43 " params: " (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)))) e-10) (Strings-Prelude-C-43C-43 " constructors: " (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-14) (Strings-Prelude-C-43C-43 " mutual 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-13) (Strings-Prelude-C-43C-43 " detaggable by: " (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) (Prelude-show_Show__Nat x-0)) (lambda (d) (lambda (x-0) (Prelude-showPrec_Show__Nat 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__Nat x-0)) (lambda (d-0) (lambda (x-0) (Prelude-showPrec_Show__Nat d-0 x-0)))) d x)))) e-15))))))))))))))))))) ((2) (let ((e-16 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<external def with arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-16) ">")))) ((3) (let ((e-17 (vector-ref sc0 1))) (let ((e-18 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "<foreign def with arity " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-17) (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__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) e-18) ">"))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<builtin with arith " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-19) ">")))) ((7) (let ((e-21 (vector-ref sc0 1))) (let ((e-22 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "Hole" (Context-Core-case--5782-2063 e-21 e-22 (let ((sc1 e-22)) (let ((e-0 (vector-ref sc1 1))) e-0))))))) ((8) (let ((e-25 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Search in " (Name-Core-show_Show__Name e-25)))) ((9) (let ((e-26 (vector-ref sc0 1))) (let ((e-28 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Guess " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 (vector 0 ) e-26) (Strings-Prelude-C-43C-43 " when " (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-28))))))) ((10) "Bound name") (else "Delayed")))))
(define Context-Core-showPrec_Show__SizeChange (lambda (arg-0 arg-1) (Context-Core-show_Show__SizeChange arg-1)))
(define Context-Core-showPrec_Show__SCCall (lambda (arg-0 arg-1) (Context-Core-show_Show__SCCall arg-1)))
(define Context-Core-showPrec_Show__DefFlag (lambda (arg-0 arg-1) (Context-Core-show_Show__DefFlag arg-1)))
(define Context-Core-showPrec_Show__Def (lambda (arg-0 arg-1) (Context-Core-show_Show__Def arg-1)))
(define Context-Core-resolved_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-resolved_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-resolved_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-resolved_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-resolved_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-resolved_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-resolved_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-resolved_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))))))))))))))))))
(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--10546-6360 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) 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--11610-7505-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--10622-6621 '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--10622-6671 '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--11927-7700-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--11248-7136 '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))))))))))))))))))
(define Context-Core-full_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-full_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-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293)))) 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--11609-7364-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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--11926-7668-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))))))))))))))
(define Context-Core-full_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-full_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-full_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-__Impl_Show_SizeChange (lambda () (vector 0 (lambda (x) (Context-Core-show_Show__SizeChange x)) (lambda (d) (lambda (x) (Context-Core-showPrec_Show__SizeChange d x))))))
(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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_Totality (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Totality arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Totality arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_Terminating (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_SCCall (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Context-Core-full_HasNames__SCCall arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Context-Core-resolved_HasNames__SCCall arg-6292 arg-6293 eta-0)))))))
(define Context-Core-__Impl_HasNames_Name (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_Def (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_Covering (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Covering arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Covering arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_C-40NameMapC-32C-36aC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40NameMapC-32C-36aC-41 'erased arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseAltC-32C-36varsC-41 'erased arg-6292 arg-6293))))))
(define Context-Core-__Impl_HasNames_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 'erased arg-6292 arg-6293))))))
(define Context-Core-__Impl_Eq_SizeChange (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SizeChange arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__SizeChange arg-438 arg-439))))))
(define Context-Core-__Impl_Eq_SCCall (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SCCall arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__SCCall arg-438 arg-439))))))
(define Context-Core-__Impl_Eq_DefFlag (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439))))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Nat arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Context-Core-C-61C-61_Eq__SizeChange arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Context-Core-C-47C-61_Eq__SizeChange arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Nat arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Context-Core-C-61C-61_Eq__SizeChange arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Context-Core-C-47C-61_Eq__SizeChange arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Nat arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Context-Core-C-61C-61_Eq__SizeChange arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Context-Core-C-47C-61_Eq__SizeChange arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Nat arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SizeChange arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Context-Core-C-47C-61_Eq__SizeChange arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Nat arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Nat arg-440 arg-441)))) arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--21786-16806-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--21786-16831-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--16624-12155 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))))
(define GlobalDef-Context-Core-type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define Constructor-Context-Core-type (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define Defs-Context-Core-transforms (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-12 (vector-ref sc0 13))) e-12))))
(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--22088-17084-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))))
(define Defs-Context-Core-timings (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-24 (vector-ref sc0 25))) e-24))))
(define Context-Context-Core-staging (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-6 (vector-ref sc0 7))) e-6))))
(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--26367-21089-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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-37 (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))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 e-37 e-27 e-28 e-29 e-30 e-31 e-32 (vector 1 arg-1 e-33) e-34 e-35 e-36) 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-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--20016-15238 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-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-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-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-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--19388-14685 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--20182-15371 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--19772-15031 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--19898-15139 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-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-37 (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))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 e-37 e-27 e-28 e-29 e-30 e-31 e-32 e-33 arg-1 e-35 e-36) 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--9321-5206 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))))))))))))))))))))))))
(define Context-Core-resetFirstEntry (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-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-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))) (let ((e-36 (vector-ref sc2 11))) (vector 0 (vector 0 (let ((sc3 (let ((sc4 e-5)) (let ((e-63 (vector-ref sc4 1))) e-63)))) (let ((e-47 (vector-ref sc3 2))) e-47)) e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 e-35 e-36) 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 GlobalDef-Context-Core-refersToRuntimeM (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13))))
(define Context-Core-refersToRuntime (lambda (arg-0) (Prelude-maybe 'erased 'erased (lambda () (NameMap-Data-empty 'erased)) (lambda () (lambda (eta-0) eta-0)) (let ((sc0 arg-0)) (let ((e-13 (vector-ref sc0 14))) e-13)))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 arg-0)) ((0) (List-Data-isSuffixOf 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (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 HoleFlags-Context-Core-precisetype (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) (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-12 (vector-ref sc2 6))) (let ((e-11 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 (b+ idx 1 63) (NameMap-Data-insert 'erased arg-0 idx e-2) (Context-Core-addPossible arg-0 idx e-3) e-4 e-12 e-11 e-7 e-8 e-9 e-10))))))))))))))))))))))))))))
(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 Context-Core-newAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 ((Context-Core-getPosition arg-1 arg-2) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 1))) (let ((e-3 (vector-ref sc1 2))) (vector 1 (let ((sc2 e-3)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-13 (vector-ref sc2 3))) (let ((e-12 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-11 (vector-ref sc2 6))) (let ((e-6 (vector-ref sc2 7))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (let ((e-10 (vector-ref sc2 11))) (vector 0 e-0 e-1 e-13 (Context-Core-addAlias arg-0 arg-1 e-2 e-12) e-4 e-11 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))))
(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))))
(define GlobalDef-Context-Core-namedcompexpr (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-19 (vector-ref sc0 20))) e-19))))
(define Constructor-Context-Core-name (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define Defs-Context-Core-mutData (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define GlobalDef-Context-Core-multiplicity (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
(define Context-Core-lookupTyName (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupNameBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-2 ext-1 ext-0)))
(define Context-Core-lookupTyExact (lambda (ext-2 ext-1 ext-0) (Context-Core-lookupExactBy 'erased (lambda (eta-0) (let ((sc0 eta-0)) (let ((e-2 (vector-ref sc0 3))) e-2))) ext-2 ext-1 ext-0)))
(define Context-Core-lookupNameBy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtName arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (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 (arg-1 e-7)))))))))) e-5)))))))))
(define Context-Core-lookupExactBy (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Context-Core-lookupCtxtExact arg-2 arg-3) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (vector 1 (vector 1 (arg-1 e-1))))) (else (vector 1 (vector 0 ))))))))))))
(define 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--9837-5986 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--9403-5274 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--9403-5351 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--9511-5375 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--9725-5568 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--9725-5647 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--25887-20653-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--25600-20396 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--25726-20506 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--25678-20463 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-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--22948-17841-visible arg-1 arg-0 eta-0))) (List-Prelude-C-43C-43 'erased (Context-Core-n--22948-17840-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--25037-19845 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--25153-19962 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 (NameMap-Data-empty 'erased)))))))))))))))
(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)))))))
(define Defs-Context-Core-imported (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-17 (vector-ref sc0 18))) e-17))))
(define Defs-Context-Core-importHashes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-16 (vector-ref sc0 17))) e-16))))
(define HoleFlags-Context-Core-implbind (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define Defs-Context-Core-ifaceHash (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-15 (vector-ref sc0 16))) e-15))))
(define Context-Core-holeInit (lambda (arg-0) (vector 0 arg-0 1)))
(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-hideName (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 (NameMap-Data-insert 'erased arg-0 (vector 0 ) e-10))))))))))))))))
(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) (let ((act-26 (set-box! arg-0 (let ((sc5 e-5)) (let ((e-0 (vector-ref sc5 1))) (let ((e-31 (vector-ref sc5 2))) (let ((e-30 (vector-ref sc5 3))) (let ((e-3 (vector-ref sc5 4))) (let ((e-4 (vector-ref sc5 5))) (let ((e-29 (vector-ref sc5 6))) (let ((e-28 (vector-ref sc5 7))) (let ((e-27 (vector-ref sc5 8))) (let ((e-26 (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 (Context-Core-hideName e-8 e-0) e-31 e-30 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 e-24 e-25))))))))))))))))))))))))))))))) (vector 1 act-26)))(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-Context-Core-hidden (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-10 (vector-ref sc0 11))) e-10))))
(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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Name-Core-compare_Ord__Name arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Name-Core-C-60_Ord__Name arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Name-Core-C-62_Ord__Name arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Name-Core-C-60C-61_Ord__Name arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Name-Core-C-62C-61_Ord__Name arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Name-Core-max_Ord__Name arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Name-Core-min_Ord__Name arg-795 arg-796)))) (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--16092-11653-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--19032-14374 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--19006-14310-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--19006-14310-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--19006-14311-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--19006-14311-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--21930-16944-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--21930-17000 arg-0 arg-3 arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-3))))))))))(else (Context-Core-case--21930-17000 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--8946-4870 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))))))))))
(define Context-Core-getNestedNS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))))))))
(define 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--10466-6256 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--21541-16580-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)))))))
(define Context-Core-getAutoImplicitLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (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-6 (vector-ref sc1 6))) e-6))))))))))
(define Context-Core-getAmbigLimit (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (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-3 (vector-ref sc1 4))) e-3))))))))))
(define Defs-Context-Core-gamma (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define GlobalDef-Context-Core-fullname (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define Context-Core-full (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 Context-Core-fstName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (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-4 (vector-ref sc1 5))) e-4)))))))))))
(define Context-Core-fromStringName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-6 (vector-ref sc2 7))) e-6)))) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
(define Context-Core-fromIntegerName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-6 (vector-ref sc2 7))) e-6)))) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))
(define Context-Core-fromCharName (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 (let ((sc2 (let ((sc3 e-5)) (let ((e-4 (vector-ref sc3 5))) e-4)))) (let ((e-6 (vector-ref sc2 7))) e-6)))) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))
(define SCCall-Context-Core-fnCall (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define SCCall-Context-Core-fnArgs (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define GlobalDef-Context-Core-flags (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-11 (vector-ref sc0 12))) e-11))))
(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--21657-16703-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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a-0) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a-0) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a-0) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a-0) (lambda (arg-8350) arg-8350))) 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--10331-6137 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))) (let ((e-36 (vector-ref sc1 11))) (vector 0 (vector 0 e-26 e-27 e-28 e-29 e-30 e-31 e-32 e-33 e-34 0 e-36) e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 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--15571-11170-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))))
(define Context-Core-branchCtxt (lambda (arg-0 ext-0) (vector 1 (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (let ((e-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 e-4 (+ 1 e-5) e-6 e-7 e-8 e-9 e-10))))))))))))))))
(define Context-Core-branch (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (Context-Core-branchCtxt (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0)) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Context-Core-setCtxt arg-0 e-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (vector 1 e-5)))))))))))))))))
(define Defs-Context-Core-autoHints (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
(define PMDefInfo-Context-Core-alwaysReduce (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(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-aliasName (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) ((Context-Core-case--15732-11384 arg-1 arg-0 e-5 (Name-Core-userNameRoot arg-1)) ext-0))))))))
(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--20890-15993 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--8713-4649 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--20328-15504 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--9185-5080 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--21436-16497 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--16211-11797 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--22223-17208-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--22223-17210-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--9049-4956 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-addContextAlias (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((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) (let ((act-26 (Context-Core-newAlias arg-1 arg-2 (let ((sc3 e-5)) (let ((e-0 (vector-ref sc3 1))) e-0)) ext-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((act-27 (set-box! arg-0 (let ((sc4 e-5)) (let ((e-1 (vector-ref sc4 2))) (let ((e-2 (vector-ref sc4 3))) (let ((e-3 (vector-ref sc4 4))) (let ((e-4 (vector-ref sc4 5))) (let ((e-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-7 e-1 e-2 e-3 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))))))))(else (vector 1 (vector 0 )))))))))))))))))
(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-addAlias (lambda (arg-0 arg-1 arg-2 arg-3) (Context-Core-case--8781-4710 arg-3 arg-2 arg-1 arg-0 (Name-Core-userNameRoot arg-0))))
(define Context-Core-Grow (lambda () (Context-Core-initSize)))
(define Directory-System-case--1959-2331 (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--1884-2248 (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--1825-2187 (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--1739-2097 (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--1566-1918 (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--1884-2248 '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--1959-2331 '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--1825-2187 '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--1739-2097 '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--1794-648 (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--1796-685 (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 ))))))
(define Clock-System-nanoseconds (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(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--1794-648 arg-0 (Clock-System-isClockMandatory arg-0))))
(define StringMap-Data-case--4238-2834 (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--3872-2470 (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--2662-1399 (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--2403-1302 (lambda (arg-0 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--2403-1191 (lambda (arg-0 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--2240-1160 (lambda (arg-0 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--2403-1191 '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--2403-1302 '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--2240-1050 (lambda (arg-0 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--1885-1019 (lambda (arg-0 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--2240-1050 '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--2240-1160 '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--2014-941 (lambda (arg-0 arg-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--2014-852 (lambda (arg-0 arg-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--1885-825 (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--2014-852 '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--2014-941 '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--1885-723 (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--1778-662 (lambda (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--1655-615 (lambda (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--1778-662 '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--1655-567 (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--1655-524 (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--3769-2348-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--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3769-2348-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--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-5) (vector 1 arg-5 (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased (lambda (arg-6) (vector 1 arg-6 (StringMap-Data-n--3769-2348-treeToListC-39 'erased 'erased 'erased arg-3 e-14))) e-12))) e-10)))))))))
(define StringMap-Data-n--4229-2822-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--3769-2348-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--1655-524 '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--1655-567 '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--1655-615 '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--1885-723 '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--1885-825 '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--1885-1019 '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--2662-1399 '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--4229-2822-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) (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--3872-2470 '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--2078-6525 (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--2068-6515-iter 'erased 'erased arg-2 arg-3 (b+ arg-6 1 63) arg-5 (vector 1 el arg-4)))))))))))
(define IOArray-Data-case--1896-6442 (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--1907-6356 (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 (_-6421) (IOArray-Data-n--1896-6344-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--1831-6295 (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--1754-6222 (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--2068-6515-iter (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (IOArray-Data-case--2078-6525 '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--1896-6344-copyFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (IOArray-Data-case--1907-6356 '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--1754-6222 '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--2068-6515-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--1831-6295 '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--1896-6442 '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--1896-6344-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 (_-6491) (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 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--5506-3985 (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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--5504-3936 (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) arg-1 (Binary-Utils-toLimbs arg-0) eta-0)))))))))))
(define Binary-Utils-case--5441-3873 (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--5432-3855 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (vector 0 )) (else (Binary-Utils-case--5441-3873 arg-0 (Prelude-C-61C-61_Eq__Integer arg-0 (Prelude-negate_Neg__Integer 1))))))))
(define Binary-Utils-case--4965-3436 (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--4643-3148 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4641-3075 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4553-2988 (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--4466-2897 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4355-2877 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4353-2800 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4190-2712 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4188-2638 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4029-2545 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--4027-2472 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--3968-2404 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--3891-2330 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--3769-2266 (lambda (arg-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--3769-2225 (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--3736-2190 (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--3709-2163 (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--3628-2084 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--3524-1986 (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--5296-3735-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--5296-3735-writeAll 'erased arg-1 arg-2 arg-3 arg-4 'erased e-4) eta-0)))))))))))))
(define Binary-Utils-n--5298-3763-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--5298-3763-readElems 'erased arg-1 arg-2 arg-3 'erased (vector 1 e-5 arg-5) e-0) eta-0)))))))))))))
(define Binary-Utils-n--5211-3679-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--5211-3679-readElems 'erased arg-1 arg-2 (vector 1 e-5 arg-3) e-0) eta-0)))))))))))))
(define Binary-Utils-n--5209-3642-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--5209-3642-length_aux 'erased arg-1 arg-2 arg-3 e-3 (b+ 1 arg-5 63))))))))
(define Binary-Utils-n--5209-3643-TailRec_length (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Binary-Utils-n--5209-3642-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--4188-2638 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--5504-3936 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--4027-2472 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--4641-3075 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--4353-2800 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--5209-3643-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--5296-3735-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--4190-2712 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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--4029-2545 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--4643-3148 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--4355-2877 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--5211-3679-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--5298-3763-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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Nat (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Integer (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Integer arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Integer arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Int (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Double (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Double arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Double arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Char (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Char arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Char arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Bool (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_Binary (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Binary arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_C-40C-124UnitC-44MkUnitC-124C-41 (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-124UnitC-44MkUnitC-124C-41 arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-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-2121 arg-2123))) (lambda (arg-2124) (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-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased arg-1 arg-2124 eta-0))))))
(define Binary-Utils-__Impl_TTC_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased arg-1 arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2121 arg-2123))) (lambda (arg-2124) (Binary-Utils-fromBuf_TTC__C-40C-40VectC-32C-36nC-41C-32C-36aC-41 'erased arg-1 arg-2 arg-2124)))))
(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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased arg-2 arg-2124 eta-0))))))
(define Binary-Utils-writeToFile (lambda (arg-0 arg-1) (Buffer-Data-writeBufferToFile 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0 (let ((sc0 arg-1)) (let ((e-0 (vector-ref sc0 1))) e-0)) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 4))) e-3)))))
(define 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--5432-3855 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--3891-2330 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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)))
(define Binary-Binary-Utils-loc (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define Binary-Utils-initBinaryS (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 ((Buffer-Data-newBuffer 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--3968-2404 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--3769-2225 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--2604-2924 (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-2) (else arg-6)))))
(define Buffer-Data-case--2584-2897 (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 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 1))) e-3)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (Buffer-Data-rawSize 'erased arg-1 arg-3)) (lambda (oldsize) (let ((len (let ((_-0 (vector 1 e-1))) (Buffer-Data-case--2604-2924 'erased arg-1 arg-2 arg-3 e-1 _-0 oldsize (Prelude-C-60_Ord__Int arg-2 oldsize))))) (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) (Buffer-Data-copyData 'erased arg-1 arg-3 0 len e-1 0)) (lambda (_-2967) (let ((sc3 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 1))) e-9)))) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) (Buffer-Data-freeBuffer 'erased arg-1 arg-3)) (lambda (_-2976) (let ((sc4 (let ((sc5 (let ((sc6 arg-1)) (let ((e-12 (vector-ref sc6 1))) e-12)))) (let ((e-13 (vector-ref sc5 1))) e-13)))) (let ((e-12 (vector-ref sc4 2))) ((e-12 'erased) (vector 1 e-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 0 )))))))))
(define Buffer-Data-case--2388-2725 (lambda (arg-0 arg-1 arg-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 ((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 (_-2755) (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 arg-7))))))))) (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 Buffer-Data-case--2355-2691 (lambda (arg-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 (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 1))) e-3)))) (let ((e-2 (vector-ref sc1 2))) ((((e-2 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 arg-3 e-1 0 arg-5)) (lambda (_-0) (let ((sc2 _-0)) (case (vector-ref sc2 0) ((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 arg-3)) (lambda (_-2755) (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 e-1))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-7 (vector-ref sc3 2))) ((e-7 'erased) (vector 0 e-5)))))))))))))) (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 0 (vector 1 ))))))))))
(define Buffer-Data-case--2327-2662 (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) (Buffer-Data-newBuffer 'erased arg-1 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) (Buffer-Data-readBufferData 'erased arg-1 arg-3 e-5 0 e-2)) (lambda (_-1) (let ((sc4 _-1)) (case (vector-ref sc4 0) ((1) (let ((sc5 (let ((sc6 arg-1)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-11 (vector-ref sc5 2))) ((((e-11 'erased) 'erased) (File-System-closeFile 'erased arg-1 arg-3)) (lambda (_-2755) (let ((sc6 (let ((sc7 (let ((sc8 arg-1)) (let ((e-14 (vector-ref sc8 1))) e-14)))) (let ((e-15 (vector-ref sc7 1))) e-15)))) (let ((e-14 (vector-ref sc6 2))) ((e-14 'erased) (vector 1 e-5))))))))) (else (let ((e-9 (vector-ref sc4 1))) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-11 (vector-ref sc7 1))) e-11)))) (let ((e-12 (vector-ref sc6 1))) e-12)))) (let ((e-11 (vector-ref sc5 2))) ((e-11 'erased) (vector 0 e-9)))))))))))))) (else (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 0 (vector 1 )))))))))))))) (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 Buffer-Data-case--2307-2636 (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-fileSize 'erased arg-1 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) (Buffer-Data-newBuffer 'erased arg-1 e-5)) (lambda (_-1) (let ((sc4 _-1)) (case (vector-ref sc4 0) ((1) (let ((e-9 (vector-ref sc4 1))) (let ((sc5 (let ((sc6 arg-1)) (let ((e-11 (vector-ref sc6 1))) e-11)))) (let ((e-11 (vector-ref sc5 2))) ((((e-11 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 e-2 e-9 0 e-5)) (lambda (_-2) (let ((sc6 _-2)) (case (vector-ref sc6 0) ((1) (let ((sc7 (let ((sc8 arg-1)) (let ((e-15 (vector-ref sc8 1))) e-15)))) (let ((e-15 (vector-ref sc7 2))) ((((e-15 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-2)) (lambda (_-2755) (let ((sc8 (let ((sc9 (let ((sc10 arg-1)) (let ((e-18 (vector-ref sc10 1))) e-18)))) (let ((e-19 (vector-ref sc9 1))) e-19)))) (let ((e-18 (vector-ref sc8 2))) ((e-18 'erased) (vector 1 e-9))))))))) (else (let ((e-13 (vector-ref sc6 1))) (let ((sc7 (let ((sc8 (let ((sc9 arg-1)) (let ((e-15 (vector-ref sc9 1))) e-15)))) (let ((e-16 (vector-ref sc8 1))) e-16)))) (let ((e-15 (vector-ref sc7 2))) ((e-15 'erased) (vector 0 e-13)))))))))))))) (else (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 0 (vector 1 )))))))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-7 (vector-ref sc3 2))) ((e-7 '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 Buffer-Data-case--2171-2518 (lambda (arg-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))) (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-5)) (lambda (_-2544) (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 e-2)))))))))) (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 Buffer-Data-case--2149-2487 (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) (Buffer-Data-writeBufferData 'erased arg-1 e-2 arg-3 0 arg-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 (_-2544) (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 e-5)))))))))) (else (let ((e-5 (vector-ref sc2 1))) (let ((sc3 (let ((sc4 (let ((sc5 arg-1)) (let ((e-7 (vector-ref sc5 1))) e-7)))) (let ((e-8 (vector-ref sc4 1))) e-8)))) (let ((e-7 (vector-ref sc3 2))) ((e-7 '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 Buffer-Data-case--2062-2408 (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-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 (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 (vector 2 ))))))))))
(define Buffer-Data-case--1975-2325 (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-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 (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 (vector 1 ))))))))))
(define Buffer-Data-writeBufferToFile (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-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) (Buffer-Data-writeBufferData 'erased arg-1 e-4 arg-3 0 arg-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 (_-2544) (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 e-8)))))))))) (else (let ((e-8 (vector-ref sc3 1))) (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-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 Buffer-Data-writeBufferData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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) (Buffer-Data-prim__writeBufferData arg-2 arg-3 arg-4 arg-5 eta-0)))))) (lambda (written) (Buffer-Data-case--2062-2408 'erased arg-1 arg-2 arg-5 arg-4 arg-3 written (Prelude-C-62C-61_Ord__Int written 0))))))))
(define Buffer-Data-setString (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setString arg-2 arg-3 arg-4 eta-0)))))))
(define Buffer-Data-setInt (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setInt arg-2 arg-3 arg-4 eta-0)))))))
(define Buffer-Data-setDouble (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setDouble arg-2 arg-3 arg-4 eta-0)))))))
(define Buffer-Data-setByte (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__setByte arg-2 arg-3 arg-4 eta-0)))))))
(define Buffer-Data-resizeBuffer (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) (Buffer-Data-newBuffer 'erased arg-1 arg-3)) (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) (Buffer-Data-rawSize 'erased arg-1 arg-2)) (lambda (oldsize) (let ((len (let ((_-1 (vector 1 e-4))) (Buffer-Data-case--2604-2924 'erased arg-1 arg-3 arg-2 e-4 _-1 oldsize (Prelude-C-60_Ord__Int arg-3 oldsize))))) (let ((sc3 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 1))) e-9)))) (let ((e-9 (vector-ref sc3 2))) ((((e-9 'erased) 'erased) (Buffer-Data-copyData 'erased arg-1 arg-2 0 len e-4 0)) (lambda (_-2967) (let ((sc4 (let ((sc5 arg-1)) (let ((e-12 (vector-ref sc5 1))) e-12)))) (let ((e-12 (vector-ref sc4 2))) ((((e-12 'erased) 'erased) (Buffer-Data-freeBuffer 'erased arg-1 arg-2)) (lambda (_-2976) (let ((sc5 (let ((sc6 (let ((sc7 arg-1)) (let ((e-15 (vector-ref sc7 1))) e-15)))) (let ((e-16 (vector-ref sc6 1))) e-16)))) (let ((e-15 (vector-ref sc5 2))) ((e-15 'erased) (vector 1 e-4))))))))))))))))))) (else (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 0 )))))))))))))
(define Buffer-Data-readBufferData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (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) (Buffer-Data-prim__readBufferData arg-2 arg-3 arg-4 arg-5 eta-0)))))) (lambda (read) (Buffer-Data-case--1975-2325 'erased arg-1 arg-2 arg-5 arg-4 arg-3 read (Prelude-C-62C-61_Ord__Int read 0))))))))
(define Buffer-Data-rawSize (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 (let ((sc2 arg-1)) (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) (Buffer-Data-prim__bufferSize arg-2))))))
(define Buffer-Data-newBuffer (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) (Buffer-Data-prim__newBuffer arg-2 eta-0)))))) (lambda (buf) (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 1 buf))))))))))
(define Buffer-Data-getString (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getString arg-2 arg-3 arg-4 eta-0)))))))
(define Buffer-Data-getInt (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getInt arg-2 arg-3 eta-0)))))))
(define Buffer-Data-getDouble (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getDouble arg-2 arg-3 eta-0)))))))
(define Buffer-Data-getByte (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__getByte arg-2 arg-3 eta-0)))))))
(define Buffer-Data-freeBuffer (lambda (arg-0 arg-1 arg-2) (let ((sc0 (let ((sc1 (let ((sc2 arg-1)) (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 ))))))
(define Buffer-Data-createBufferFromFile (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-fileSize 'erased arg-1 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) (Buffer-Data-newBuffer 'erased arg-1 e-8)) (lambda (_-2) (let ((sc5 _-2)) (case (vector-ref sc5 0) ((1) (let ((e-12 (vector-ref sc5 1))) (let ((sc6 (let ((sc7 arg-1)) (let ((e-14 (vector-ref sc7 1))) e-14)))) (let ((e-14 (vector-ref sc6 2))) ((((e-14 'erased) 'erased) (Buffer-Data-readBufferData 'erased arg-1 e-4 e-12 0 e-8)) (lambda (_-3) (let ((sc7 _-3)) (case (vector-ref sc7 0) ((1) (let ((sc8 (let ((sc9 arg-1)) (let ((e-18 (vector-ref sc9 1))) e-18)))) (let ((e-18 (vector-ref sc8 2))) ((((e-18 'erased) 'erased) (File-System-closeFile 'erased arg-1 e-4)) (lambda (_-2755) (let ((sc9 (let ((sc10 (let ((sc11 arg-1)) (let ((e-21 (vector-ref sc11 1))) e-21)))) (let ((e-22 (vector-ref sc10 1))) e-22)))) (let ((e-21 (vector-ref sc9 2))) ((e-21 'erased) (vector 1 e-12))))))))) (else (let ((e-16 (vector-ref sc7 1))) (let ((sc8 (let ((sc9 (let ((sc10 arg-1)) (let ((e-18 (vector-ref sc10 1))) e-18)))) (let ((e-19 (vector-ref sc9 1))) e-19)))) (let ((e-18 (vector-ref sc8 2))) ((e-18 'erased) (vector 0 e-16)))))))))))))) (else (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 0 (vector 1 )))))))))))))) (else (let ((e-8 (vector-ref sc3 1))) (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-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 Buffer-Data-copyData (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-1)) (let ((e-2 (vector-ref sc0 2))) ((e-2 'erased) (lambda (eta-0) (Buffer-Data-prim__copyData arg-2 arg-3 arg-4 arg-5 arg-6 eta-0)))))))
(define Options-Core-case--5545-1890 (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--5514-1860 (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--5491-1839 (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--5468-1815 (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--5445-1791 (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--5421-1766 (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--5393-1743 (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--5372-1721 (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-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__LangExt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__LangExt arg-438 arg-439))))))
(define Options-Core-__Impl_Eq_CG (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__CG arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__CG arg-438 arg-439))))))
(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)))) ((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-4 (vector-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))) (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-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__LangExt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__LangExt arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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))))
(define PrimNames-Options-Core-fromIntegerName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define PrimNames-Options-Core-fromCharName (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(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 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))))
(define Session-Options-Core-dumplifted (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
(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 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" (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))) (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 (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 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--4120-3338 (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--4077-3321 (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--4120-3338 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 (Path-Utils-splitFileName e-1)))) (else arg-1)))))
(define Path-Utils-case--4077-3299 (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--3933-3205 (lambda (arg-0 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--3919-3160 (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--3933-3205 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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Volume arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Volume arg-438 arg-439)))) arg-5 e-0) (lambda () (Prelude-C-61C-61_Eq__Bool arg-4 e-1)))) (lambda (_-3179) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Path-Utils-n--3858-3100-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--3858-3150 (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--3919-3160 arg-0 arg-1 e-3 e-2 e-1 e-0 (Path-Utils-parse arg-0)))))))))
(define Path-Utils-case--3861-3120 (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--3858-3100-stripBody arg-0 arg-1 arg-3 arg-5)) (else (vector 0 ))))))
(define Path-Utils-case--3796-3054 (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--3707-2970 (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--3686-2943 (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--3600-2899 (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--3596-2859 (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--3561-2850 (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--3561-2835 (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--3547-2822 (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--3542-2809 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-0) (else (Path-Utils-case--3547-2822 arg-0 arg-1 (let ((sc1 arg-0)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))
(define Path-Utils-case--3510-2782 (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--3507-2775 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Path-Utils-case--3510-2782 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--3480-2755 (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--3354-2721 (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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))) (vector 0 ) e-3)))))))))
(define Path-Utils-case--3354-2685 (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--3322-2619 (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--3215-2543 (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--2986-2252 (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--2798-2111 (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--2798-2091 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) arg-1) (else "")))))
(define Path-Utils-case--2541-1866 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\;) (else #\:)))))
(define Path-Utils-case--2536-1861 (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) #\\) (else #\/)))))
(define Path-Utils-n--3858-3100-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--3861-3120 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--3668-2924-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--3668-2924-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--2798-2091 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--2798-2111 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-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))))
(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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Volume arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Volume arg-438 arg-439))))))
(define Path-Utils-__Impl_Eq_PathTokenKind (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439))))))
(define Path-Utils-__Impl_Eq_Body (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439))))))
(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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Volume arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Volume arg-438 arg-439)))) 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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))) 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 (_-2439) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2467) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
(define Path-Utils-verbatimDisk (lambda () (vector 7 0 (Path-Utils-verbatim) (lambda () (lambda (_-2566) (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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\))) (lambda () (lambda (_-2307) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\?)) (lambda () (lambda (_-2337) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\)) (lambda () (lambda (_-2355) (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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\))) (lambda () (lambda (_-2371) (vector 7 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (server) (vector 7 0 (Path-Utils-bodySeparator) (lambda () (lambda (_-2411) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (share) (vector 0 (vector 0 server share))))))))))))))))
(define Path-Utils-stripPrefix (lambda (arg-0 arg-1) (Path-Utils-case--3858-3150 arg-1 arg-0 (Path-Utils-parse arg-0))))
(define Path-Utils-splitParentC-39 (lambda (arg-0) (Path-Utils-case--3596-2859 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--3707-2970 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--3686-2943 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--2541-1866 (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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__Body arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__Body arg-438 arg-439)))) (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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (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--3480-2755 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--2986-2252 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--3507-2775 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--3668-2924-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-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 0 )) (lambda () (lambda (text) (vector 8 1 0 (Path-Utils-case--3215-2543 text (Prelude-unpack text)) (lambda (disk) (vector 7 1 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\:)) (lambda () (lambda (_-2532) (vector 0 (vector 1 (Prelude-toUpper disk)))))))))))))
(define Path-Utils-dirSeparator (lambda () (Path-Utils-case--2536-1861 (Info-System-isWindows))))
(define Path-Utils-bodySeparator (lambda () (vector 9 0 0 (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\\)) (lambda () (Parser-Text-match 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Path-Utils-C-61C-61_Eq__PathTokenKind arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Path-Utils-C-47C-61_Eq__PathTokenKind arg-438 arg-439)))) (vector 0 (lambda (arg-254) (Path-Utils-TokType_TokenKind__PathTokenKind arg-254)) (lambda (kind) (lambda (arg-255) (Path-Utils-tokValue_TokenKind__PathTokenKind kind arg-255))))) (vector 1 #\/))))))
(define Path-Utils-appendC-39 (lambda (arg-0 arg-1) (Path-Utils-case--3542-2809 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--4077-3299 arg-1 arg-0 pC-39 ext (Prelude-C-61C-61_Eq__String (Strings-Data-ltrim ext) "")))) (Path-Utils-case--4077-3321 arg-1 arg-0 pC-39 ext ext-0 (Path-Utils-fileNameC-39 pC-39)))))))
(define Hash-Core-case--3244-7610 (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--3232-7598-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--3232-7598-hashChars (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Hash-Core-case--3244-7610 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)))
(define Hash-Core-hash_Hashable__Integer (lambda (ext-0) ext-0))
(define Hash-Core-hash_Hashable__Int (lambda (ext-0) ext-0))
(define Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 (lambda (arg-0 ext-0) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased 5381 ext-0)))
(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--3232-7598-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-7335) (Hash-Core-hash_Hashable__String arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__String arg-7336 arg-7337)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (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-7335) (Hash-Core-hash_Hashable__String arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__String arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_Nat (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Nat arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Nat arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_Name (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_Integer (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Integer arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Integer arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_Int (lambda () (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__Int arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Int arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased arg-1 arg-7336 arg-7337))))))
(define Hash-Core-__Impl_Hashable_C-40BinderC-32C-36tyC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40BinderC-32C-36tyC-41 'erased arg-1 arg-7336 arg-7337))))))
(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--3931-7980 (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--3805-7906 (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--3470-7543 (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--3690-7733-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--3690-7732-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--3690-7732-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--3690-7732-getAltSets 'erased arg-1 arg-2 arg-3 'erased (CaseTree-Core-n--3690-7731-getAltSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-2) e-3))))))))
(define CaseTree-Core-n--3690-7731-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--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-4))) ((1) (let ((e-8 (vector-ref sc0 3))) (CaseTree-Core-n--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-8))) ((2) (let ((e-11 (vector-ref sc0 2))) (CaseTree-Core-n--3690-7733-getSet 'erased arg-1 arg-2 arg-3 'erased arg-5 e-11))) (else (let ((e-13 (vector-ref sc0 1))) (CaseTree-Core-n--3690-7733-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) ")"))))))))
(define CaseTree-Core-show_Show__C-40CaseTreeC-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-2 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (let ((e-5 (vector-ref sc0 5))) (Strings-Prelude-C-43C-43 "case " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-2) (Strings-Prelude-C-43C-43 "] : " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-4) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep " | " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2)) e-5)) " }"))))))))))))) ((1) (let ((e-7 (vector-ref sc0 1))) (let ((e-8 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 (Prelude-show_Show__Int e-7) (Strings-Prelude-C-43C-43 "] " (TT-Core-show_Show__C-40TermC-32C-36varsC-41 arg-0 e-8))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "Error: " (Prelude-show_Show__String e-10)))) (else "Impossible")))))
(define CaseTree-Core-show_Show__C-40CaseAltC-32C-36varsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 3))) (let ((e-4 (vector-ref sc0 4))) (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 " => " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 (List-Prelude-C-43C-43 'erased e-3 arg-0) e-4))))))))) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "Delay " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 " => " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 (vector 1 e-6 (vector 1 e-7 arg-0)) e-8)))))))) ((2) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-10) (Strings-Prelude-C-43C-43 " => " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 e-11)))))) (else (let ((e-13 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "_ => " (CaseTree-Core-show_Show__C-40CaseTreeC-32C-36varsC-41 arg-0 e-13))))))))
(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-3275) (CaseTree-Core-weaken_Weaken__CaseTree n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (CaseTree-Core-weakenNs_Weaken__CaseTree vars ns arg-3279)))))))
(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--3931-7980 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--3805-7906 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--3470-7543 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--3690-7733-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-7825) (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-7815) (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--6047-2822 (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--5898-2687 (lambda (arg-0 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--5866-2635 (lambda (arg-0 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--5898-2687 '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--4952-1768 (lambda (arg-0 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--4576-1434 (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--3991-866 (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--3929-821 (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))))))))
(define CompileExpr-Core-show_Show__NamedConstAlt (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 "(%constcase " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__Constant e-0) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-1) ")")))))))))
(define CompileExpr-Core-show_Show__NamedConAlt (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%concase " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-0) (Strings-Prelude-C-43C-43 " " (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-1) (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-2) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-3) ")")))))))))))))))
(define CompileExpr-Core-show_Show__NamedCExp (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "!" (Name-Core-show_Show__Name e-1)))) ((1) (let ((e-3 (vector-ref sc0 2))) (Name-Core-show_Show__Name e-3))) ((2) (let ((e-5 (vector-ref sc0 2))) (let ((e-6 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%lam " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-5) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-6) ")"))))))) ((3) (let ((e-8 (vector-ref sc0 2))) (let ((e-9 (vector-ref sc0 3))) (let ((e-10 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-9) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-10) ")")))))))))) ((4) (let ((e-12 (vector-ref sc0 2))) (let ((e-13 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-12) (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__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) e-13) ")"))))))) ((5) (let ((e-15 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 3))) (let ((e-17 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%con " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-15) (Strings-Prelude-C-43C-43 " " (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-16) (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__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) e-17) ")")))))))))) ((6) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-20) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Vect-Data-show_Show__C-40C-40VectC-32C-36lenC-41C-32C-36elemC-41 'erased 'erased (vector 0 (lambda (x) (CompileExpr-Core-show_Show__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) e-21) ")"))))))) ((7) (let ((e-23 (vector-ref sc0 2))) (let ((e-24 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "(%extern " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-23) (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__NamedCExp x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedCExp d x)))) e-24) ")"))))))) ((8) (let ((e-26 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%force " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-26) ")")))) ((9) (let ((e-28 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(%delay " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-28) ")")))) ((10) (let ((e-30 (vector-ref sc0 2))) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%case " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-30) (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__NamedConAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConAlt d x)))) e-31) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-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)))) e-32) ")")))))))))) ((11) (let ((e-34 (vector-ref sc0 2))) (let ((e-35 (vector-ref sc0 3))) (let ((e-36 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "(%case " (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__NamedCExp e-34) (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__NamedConstAlt x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__NamedConstAlt d x)))) e-35) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Prelude-show_Show__C-40MaybeC-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)))) e-36) ")")))))))))) ((12) (let ((e-38 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-38))) ((13) "___") (else (let ((e-41 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "(CRASH " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-41) ")"))))))))
(define CompileExpr-Core-show_Show__CFType (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) "Unit") ((1) "Int") ((2) "Bits_n") ((3) "String") ((4) "Double") ((5) "Char") ((6) "Ptr") ((7) "GCPtr") ((8) "Buffer") ((9) "%World") ((10) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 (CompileExpr-Core-show_Show__CFType e-0) (Strings-Prelude-C-43C-43 " -> " (CompileExpr-Core-show_Show__CFType e-1)))))) ((11) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "IORes " (CompileExpr-Core-show_Show__CFType e-2)))) ((12) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "struct " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-3) (Strings-Prelude-C-43C-43 " " (Name-Core-showSep " " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-1) (Prelude-show_Show__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-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__String x)) (lambda (d) (lambda (x) (Prelude-showPrec_Show__String d x)))) (vector 0 (lambda (x) (CompileExpr-Core-show_Show__CFType x)) (lambda (d) (lambda (x) (CompileExpr-Core-showPrec_Show__CFType d x))))) arg-1)) e-4)))))))) (else (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (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 (arg-1) (CompileExpr-Core-show_Show__CFType arg-1)) e-6)))))))))))
(define CompileExpr-Core-show_Show__CDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (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__C-40CExpC-32C-36varsC-41 e-0 e-1)))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (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__C-40CExpC-32C-36varsC-41 (vector 0 ) e-8))))))))
(define CompileExpr-Core-show_Show__C-40CExpC-32C-36varsC-41 (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedCExp (CompileExpr-Core-forget arg-0 arg-1))))
(define CompileExpr-Core-showPrec_Show__NamedConstAlt (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedConstAlt arg-1)))
(define CompileExpr-Core-showPrec_Show__NamedConAlt (lambda (arg-0 arg-1) (CompileExpr-Core-show_Show__NamedConAlt arg-1)))
(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-3275) (CompileExpr-Core-weaken_Weaken__CExp n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (CompileExpr-Core-weakenNs_Weaken__CExp vars ns arg-3279)))))))
(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--3991-866 '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))))))))
(define CompileExpr-Core-substConstAlt (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-substEnv arg-0 arg-1 arg-2 arg-3 e-2)))))))
(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--4952-1768 '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--5866-2635 '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--6047-2822 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--4576-1434 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))))))
(define CompileExpr-Core-forgetExp (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))) (vector 0 e-3 (CompileExpr-Core-getLocName 'erased 'erased e-2 arg-1 '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 ((locsC-39 (CompileExpr-Core-addLocs 'erased (vector 1 e-10 (vector 0 )) arg-1))) (vector 2 e-9 (CompileExpr-Core-getLocName 'erased 'erased 0 locsC-39 'erased) (CompileExpr-Core-forgetExp 'erased locsC-39 e-11))))))) ((3) (let ((e-13 (vector-ref sc0 1))) (let ((e-14 (vector-ref sc0 2))) (let ((e-16 (vector-ref sc0 4))) (let ((e-17 (vector-ref sc0 5))) (let ((locsC-39 (CompileExpr-Core-addLocs 'erased (vector 1 e-14 (vector 0 )) arg-1))) (vector 3 e-13 (CompileExpr-Core-getLocName 'erased 'erased 0 locsC-39 'erased) (CompileExpr-Core-forgetExp 'erased arg-1 e-16) (CompileExpr-Core-forgetExp 'erased locsC-39 e-17)))))))) ((4) (let ((e-19 (vector-ref sc0 1))) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (vector 4 e-19 (CompileExpr-Core-forgetExp 'erased arg-1 e-20) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetExp 'erased arg-1 eta-0)) e-21)))))) ((5) (let ((e-23 (vector-ref sc0 1))) (let ((e-24 (vector-ref sc0 2))) (let ((e-25 (vector-ref sc0 3))) (let ((e-26 (vector-ref sc0 4))) (vector 5 e-23 e-24 e-25 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetExp 'erased arg-1 eta-0)) e-26))))))) ((6) (let ((e-29 (vector-ref sc0 2))) (let ((e-30 (vector-ref sc0 3))) (let ((e-31 (vector-ref sc0 4))) (vector 6 e-29 e-30 (Vect-Data-map_Functor__C-40VectC-32C-36nC-41 'erased 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetExp 'erased arg-1 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-forgetExp 'erased arg-1 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-forgetExp 'erased arg-1 e-38))))) ((9) (let ((e-40 (vector-ref sc0 1))) (let ((e-41 (vector-ref sc0 2))) (vector 9 e-40 (CompileExpr-Core-forgetExp 'erased arg-1 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-forgetExp 'erased arg-1 e-44) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetConAlt 'erased arg-1 eta-0)) e-45) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetExp 'erased arg-1 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-forgetExp 'erased arg-1 e-49) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetConstAlt 'erased arg-1 eta-0)) e-50) (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (CompileExpr-Core-forgetExp 'erased arg-1 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-forgetDef (lambda (arg-0) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((ns (CompileExpr-Core-addLocs 'erased e-0 (vector 0 )))) (let ((argsC-39 (CompileExpr-Core-conArgs 'erased e-0 ns))) (vector 0 argsC-39 (CompileExpr-Core-forget e-0 e-1))))))) ((1) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (vector 1 e-2 e-3 e-4))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (vector 2 e-5 e-6 e-7))))) (else (let ((e-8 (vector-ref sc0 1))) (vector 3 (CompileExpr-Core-forget (vector 0 ) e-8))))))))
(define CompileExpr-Core-forgetConstAlt (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))) (vector 0 e-1 (CompileExpr-Core-forgetExp 'erased arg-1 e-2)))))))
(define CompileExpr-Core-forgetConAlt (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))) (let ((argsC-39 (CompileExpr-Core-addLocs 'erased e-3 arg-1))) (vector 0 e-1 e-2 (CompileExpr-Core-conArgs 'erased e-3 argsC-39) (CompileExpr-Core-forgetExp 'erased argsC-39 e-4))))))))))
(define CompileExpr-Core-forget (lambda (arg-0 arg-1) (CompileExpr-Core-forgetExp 'erased (CompileExpr-Core-addLocs 'erased arg-0 (vector 0 )) arg-1)))
(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--3929-821 '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--14374-15100 (lambda (arg-0 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__DefFlag arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__DefFlag arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (TTC-Core-toBuf_TTC__SCCall arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SCCall arg-2124 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--14242-14727 (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--14086-14610 (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--14018-14505 (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--13370-14168 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2122 arg-2124 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2124 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125 arg-2126))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-3)))) arg-2125 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2126) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2126))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2)))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2)))) arg-2124 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 (Context-Core-holeInit 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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--13216-13706 (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--12958-13457 (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--12730-13304 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 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--12413-13018 (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CFType arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 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--11762-12200 (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--11249-12176 (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--11762-12200 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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--10337-11613 (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--10337-11086-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--10337-11087-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--10337-11088-fromBuf3 arg-0 arg-1 eta-0)))(else (lambda (eta-0) (Binary-Utils-corrupt 'erased "PrimFn" eta-0)))))))))))))))))))
(define TTC-Core-case--10709-11585 (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--10708-11291 (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--10707-11099 (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--10186-10593 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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--10104-10499 (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--10001-10408 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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--9933-10321 (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--9600-10083 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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--9404-9846 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 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--8548-9202 (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--8177-8861 (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-1 arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 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--8548-9202 arg-0 arg-1 arg-2 bind-0 e-5 idx (TTC-Core-getName idx arg-1)) eta-0))))))))))))))
(define TTC-Core-case--8175-8518 (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 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--8122-8466 (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--7742-8241 (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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--7569-7943 (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--7501-7839 (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--7111-7599 (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--6962-7340 (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--6881-7220 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc0 1) (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--6503-6998 (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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--6377-6730 (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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--10337-11088-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--10337-11087-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--10337-11086-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--14372-14835-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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__SizeChange arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2124 eta-0)))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__SizeChange arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 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--14372-14835-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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__DefFlag arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2122 arg-2124 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2124 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125 arg-2126))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-3)))) arg-2125 eta-2)))) (lambda (y) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2126) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2126))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2)))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-2)))) arg-2124 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 (let ((sc3 e-22)) (let ((e-0 (vector-ref sc3 1))) e-0))) 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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))) ((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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CFType arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__CFType arg-2125 eta-2))))) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2124 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--8175-8518 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__SizeChange arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2124 eta-0)))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__SizeChange arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__SizeChange arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__SizeChange arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__SizeChange arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1)))) arg-2124 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--14374-15100 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) arg-2124 eta-0)))) (lambda (y) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125 arg-2126))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))))) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40C-40DPairC-32C-36aC-41C-32C-36pC-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) arg-2125 eta-1)))) (lambda (y) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2122 arg-2125))) (lambda (arg-2125) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2125))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2126) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 y arg-2126))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 y arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1)))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) arg-2124 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 (Context-Core-holeInit 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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 ))) ((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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CFType arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CFType arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 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--8548-9202 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--10337-11086-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--10337-11087-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--10337-11088-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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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--11762-12200 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Visibility arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Visibility arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_UseSide (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__UseSide arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__UseSide arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_TypeFlags (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__TypeFlags arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TypeFlags arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_Transform (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Transform arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_TotalReq (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__TotalReq arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_SizeChange (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__SizeChange arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SizeChange arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_SCCall (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__SCCall arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__SCCall arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_RigCount (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_RewriteNames (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_PrimNames (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PrimNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PrimNames arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_PartialReason (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__PartialReason arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PartialReason arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_PairNames (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_PMDefInfo (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PMDefInfo arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PMDefInfo arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_NameType (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__NameType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__NameType arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_Name (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_LazyReason (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__LazyReason arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__LazyReason arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_GlobalDef (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__GlobalDef arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__GlobalDef arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_FC (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_DefFlag (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__DefFlag arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__DefFlag arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_Constant (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Constant arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Constant arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_CG (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CG arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_CFType (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CFType arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CFType arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_CDef (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CDef arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40TermC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40PrimFnC-32C-36nC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (TTC-Core-fromBuf_TTC__C-40PrimFnC-32C-36nC-41 arg-0 arg-2124)))))
(define TTC-Core-__Impl_TTC_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40PiInfoC-32C-36tC-41 'erased arg-1 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CaseTreeC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseTreeC-32C-36varsC-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CaseAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CaseAltC-32C-36varsC-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CExpC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CExpC-32C-36varsC-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CConstAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConstAltC-32C-36varsC-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40CConAltC-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40CConAltC-32C-36varsC-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40BinderC-32C-40TermC-32C-36varsC-41C-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40BinderC-32C-40TermC-32C-36varsC-41C-41 arg-0 arg-2124 eta-0))))))
(define TTC-Core-__Impl_TTC_C-40C-40EnvC-32TermC-41C-32C-36varsC-41 (lambda (arg-0) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2121 arg-2123))) (lambda (arg-2124) (TTC-Core-fromBuf_TTC__C-40C-40EnvC-32TermC-41C-32C-36varsC-41 arg-0 arg-2124)))))
(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--17425-13947 (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--17425-13690-repSub arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-1))))))
(define Normalise-Core-case--17279-13654 (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--17279-13554-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--17177-13469 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--17080-13378 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--16983-13287 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--16883-13193 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--16477-12766 (lambda (arg-0 arg-1 arg-2 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--15638-12729 (lambda (arg-0 arg-1 arg-2 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--16329-12641 (lambda (arg-0 arg-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--15638-12603 (lambda (arg-0 arg-1 arg-2 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--15638-12537 (lambda (arg-0 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--15638-12440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15638-12358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15638-12295 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10) (let ((sc0 arg-10)) (cond ((equal? sc0 0) (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--15638-12053 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12160-11917 (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--12160-11857 (lambda (arg-0 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--12160-11793 (lambda (arg-0 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--12156-11711 (lambda (arg-0 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--14411-10939 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14298-10859 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14411-10939 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12153-10290-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--14188-10781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14298-10859 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12153-10290-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--14087-10705 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--14188-10781 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12153-10289-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--14003-10633 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--14087-10705 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--12153-10289-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--13931-10573 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--14003-10633 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--13860-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) (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--13931-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13795-10473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13931-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13735-10426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13931-10573 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--13685-10381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--13931-10573 arg-0 arg-1 arg-2 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--12153-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) (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--13931-10573 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--13385-10139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12150-9827-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--13344-10092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12150-9827-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--12150-10061 (lambda (arg-0 arg-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--12150-9827-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--13126-9918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12150-9827-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--13072-9877 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13126-9918 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--12150-9826-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--12902-9716 (lambda (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--12147-9683 (lambda (arg-0 arg-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--12144-9581 (lambda (arg-0 arg-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--12141-9486 (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--12469-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) (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--12141-9096-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--12429-9311 (lambda (arg-0 arg-1 arg-2 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--12141-9096-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--12141-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 arg-12) (let ((sc0 arg-12)) (cond ((equal? sc0 0) (Normalise-Core-case--12429-9311 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--12141-9094-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--11606-8581 (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--11624-8510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11606-8484-findIdx arg-0 arg-1 'erased arg-3 'erased arg-5 arg-6 arg-7 arg-12 arg-13))))))
(define Normalise-Core-case--10041-7848 (lambda (arg-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--10951-7768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--10026-7325 (lambda (arg-0 arg-1 arg-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--10267-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) (vector 1 (+ 1 arg-13))))
(define Normalise-Core-case--10286-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 arg-13 arg-14) (vector 1 (+ 1 arg-14))))
(define Normalise-Core-case--10267-7143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (vector 1 0)) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Normalise-Core-n--10026-7127-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--10026-7085 (lambda (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--10108-7031 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--9526-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 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--9473-6428 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--6770-6390 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9473-6428 arg-0 arg-1 arg-2 arg-3 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--9330-6303 (lambda (arg-0 arg-1 arg-2 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--6769-6270 (lambda (arg-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--6769-6234-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--9330-6303 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--6768-6202 (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--8983-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) (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--6766-5956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--6765-5822 (lambda (arg-0 arg-1 arg-2 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--6764-5723 (lambda (arg-0 arg-1 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--6764-5607 (lambda (arg-0 arg-1 arg-2 arg-3 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--6764-5446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--6764-5344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--6764-5250 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--6763-5177 (lambda (arg-0 arg-1 arg-2 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--7773-4967 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--7729-4930 (lambda (arg-0 arg-1 arg-2 arg-3 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--7689-4897 (lambda (arg-0 arg-1 arg-2 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--6761-4868 (lambda (arg-0 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--7395-4653 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--6758-4621 (lambda (arg-0 arg-1 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--7395-4653 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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) 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--6756-4453 (lambda (arg-0 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--6756-4340 (lambda (arg-0 arg-1 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--6756-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) (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--6684-3988 (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--6593-3867-set arg-0 arg-1 arg-1 arg-2 e-7)))))))))))))
(define Normalise-Core-case--6670-3946 (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--6593-3867-set arg-0 arg-1 arg-1 e-3 e-7))))))))))))))))))))))))
(define Normalise-Core-case--6593-3933 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (Normalise-Core-case--6670-3946 arg-0 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--6597-3887 (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--6593-3867-set arg-0 arg-1 arg-6 arg-5 arg-4)))))))
(define Normalise-Core-case--6480-3837 (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--6501-3808 (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--6480-3782 (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--12141-9093-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--11606-8654-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--11606-8652-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--11606-8653-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--11606-8652-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--11606-8652-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--10041-7746-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--6767-6111-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--6767-6111-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--6593-3867-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--6597-3887 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--17425-13690-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--17425-13690-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--17425-13689-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--17425-13689-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--17425-13689-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--17425-13690-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--17425-13690-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--17425-13690-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--17425-13689-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--17425-13690-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--17425-13689-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--12153-10290-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--12153-10290-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--12150-9826-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--12150-9826-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--10026-7127-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--10267-7143 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--10026-7127-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--11606-8484-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--11624-8510 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--12153-10289-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--12141-9094-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--12141-9094-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--12141-9093-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--6769-6234-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--6769-6234-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--17279-13554-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--17279-13554-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--17279-13554-dumpEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-9) eta-0)))))))))))))))))))
(define Normalise-Core-n--12141-9095-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--12141-9095-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--12141-9096-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--12141-9095-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--12141-9095-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--12150-9827-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--13072-9877 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--12150-9826-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--6764-5673-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--6756-4137-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--6756-4137-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--6757-4551-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--6757-4551-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--10026-7002-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--10108-7031 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--10026-7002-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))))))))
(define Normalise-Core-quoteGen_Quote__Term (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (vector 1 arg-4)))
(define Normalise-Core-quoteGen_Quote__NF (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Normalise-Core-quoteGenNF (vector 0 ) arg-0 arg-1 arg-2 (vector 0 ) arg-3 arg-4)))
(define Normalise-Core-quoteGen_Quote__Closure (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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))) ((Normalise-Core-quoteGen_Quote__NF arg-0 arg-1 arg-2 arg-3 e-5) ext-0))))))))
(define Normalise-Core-convert_Convert__Term (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__Term arg-0 e-5 arg-1 arg-2 arg-3 arg-4 ext-0))))))))
(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--15638-12358 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--15638-12440 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--15638-12537 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--15638-12603 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--15638-12729 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--15638-12358 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--15638-12440 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--15638-12537 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--15638-12603 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--15638-12729 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--15638-12358 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--15638-12440 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--15638-12537 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--15638-12603 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--15638-12729 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--15638-12358 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--15638-12440 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--15638-12537 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--15638-12603 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--15638-12729 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-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Term vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Term vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0))))))))))
(define Normalise-Core-__Impl_Quote_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__NF vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (Normalise-Core-quoteGen_Quote__NF vars arg-6788 arg-6790 arg-6791 arg-6793)))))))))
(define Normalise-Core-__Impl_Quote_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 eta-0))))))))))
(define Normalise-Core-__Impl_Convert_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convert_Convert__Term vars arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))) (lambda (vars) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (arg-8374) (lambda (arg-8375) (lambda (eta-0) (Normalise-Core-convGen_Convert__Term vars arg-8369 arg-8371 arg-8372 arg-8374 arg-8375 eta-0)))))))))))
(define Normalise-Core-__Impl_Convert_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convert_Convert__NF vars arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))) (lambda (vars) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (arg-8374) (lambda (arg-8375) (Normalise-Core-convGen_Convert__NF vars arg-8369 arg-8371 arg-8372 arg-8374 arg-8375))))))))))
(define Normalise-Core-__Impl_Convert_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-8363) (lambda (arg-8364) (lambda (arg-8366) (lambda (arg-8367) (lambda (eta-0) (Normalise-Core-convert_Convert__Closure vars arg-8363 arg-8364 arg-8366 arg-8367 eta-0))))))) (lambda (vars) (lambda (arg-8369) (lambda (arg-8371) (lambda (arg-8372) (lambda (arg-8374) (lambda (arg-8375) (lambda (eta-0) (Normalise-Core-convGen_Convert__Closure vars arg-8369 arg-8371 arg-8372 arg-8374 arg-8375 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--6480-3782 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--6480-3837 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--6593-3933 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--11606-8484-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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (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--11606-8653-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--11606-8654-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--6764-5250 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--6764-5723 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--6764-5673-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--6764-5344 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--6764-5723 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--6764-5673-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--6764-5446 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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5607 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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6764-5723 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--6764-5673-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--6767-6111-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--17425-13690-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--10026-7085 arg-1 'erased e-3 'erased e-2 arg-6 arg-0 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10026-7002-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--10026-7325 arg-0 arg-1 e-13 e-12 arg-6 arg-5 arg-4 arg-3 arg-2 (Normalise-Core-n--10026-7127-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--10041-7746-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--10041-7746-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)))))))))))))))))))))))))
(define Normalise-Core-quote (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) ((((e-1 arg-1) arg-3) arg-4) arg-5))))))))
(define Normalise-Core-normaliseScope (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 ((Normalise-Core-normaliseScope (vector 1 e-2 arg-0) arg-1 (vector 1 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-normalise arg-0 arg-1 arg-2 arg-3 eta-0)))))))
(define Normalise-Core-normaliseOpts (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 ext-0) (let ((act-24 ((Normalise-Core-nfOpts 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))) (Normalise-Core-quote_Quote__NF arg-0 arg-2 arg-3 e-5 ext-0))))))))
(define Normalise-Core-normaliseHoles (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nfOpts arg-0 (Value-Core-withHoles) 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-normaliseErr (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 (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-normaliseHoles 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-normaliseHoles 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))) (vector 1 (vector 1 e-0 e-1 e-2 e-6 e-7)))))))))))))))))))))))) ((2) (let ((e-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((e-8 (vector-ref sc0 4))) (let ((e-9 (vector-ref sc0 5))) (lambda (eta-0) (let ((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-normaliseHoles 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-normaliseHoles 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))) (vector 1 (vector 2 e-5 e-6 e-7 e-11 e-12)))))))))))))))))))))))) ((5) (let ((e-10 (vector-ref sc0 1))) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (let ((e-14 (vector-ref sc0 5))) (let ((e-15 (vector-ref sc0 6))) (lambda (eta-0) (let ((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-normaliseHoles e-10 e-5 e-12 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))) (let ((act-26 (Normalise-Core-normaliseHoles e-10 e-5 e-12 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 ((e-7 (vector-ref sc3 1))) (let ((act-27 ((Normalise-Core-normaliseErr 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 ((e-8 (vector-ref sc4 1))) (vector 1 (vector 5 e-10 e-11 e-12 e-6 e-7 e-8)))))))))))))))))))))))))))))) ((29) (let ((e-16 (vector-ref sc0 1))) (let ((e-17 (vector-ref sc0 2))) (let ((e-18 (vector-ref sc0 3))) (let ((e-19 (vector-ref sc0 4))) (lambda (eta-0) (let ((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-normaliseHoles e-16 e-5 e-18 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 29 e-16 e-17 e-18 e-6)))))))))))))))))) ((21) (let ((e-20 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Core-Core-traverse 'erased 'erased (lambda (x) (lambda (eta-1) (let ((act-24 ((Normalise-Core-normaliseErr arg-0 (Builtin-snd 'erased 'erased x)) 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 x) e-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 (vector 21 e-5)))))))))) ((56) (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 ((Normalise-Core-normaliseErr 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))) (vector 1 (vector 56 e-21 e-22 e-5)))))))))))) ((57) (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 ((Normalise-Core-normaliseErr 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))) (vector 1 (vector 57 e-24 e-25 e-5)))))))))))) ((58) (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-normaliseErr arg-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 (vector 58 e-27 e-28 e-5)))))))))))) ((59) (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-normaliseErr arg-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))) (vector 1 (vector 59 e-30 e-31 e-5))))))))))))(else (lambda (eta-0) (vector 1 arg-1)))))))
(define Normalise-Core-normaliseArgHoles (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nfOpts arg-0 (Value-Core-withArgHoles) 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-normaliseAll (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Normalise-Core-nfOpts arg-0 (Value-Core-withAll) 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-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--16983-13287 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--16883-13193 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--17177-13469 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--17080-13378 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--17279-13654 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--12147-9683 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--12141-9282 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--12141-9486 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)))))))))))))
(define Normalise-Core-gType (lambda (arg-0 arg-1) (vector 0 0 (lambda (eta-0) (vector 1 (vector 11 arg-1))) (lambda (eta-0) (lambda (eta-1) (vector 1 (vector 10 arg-1)))))))
(define 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--6766-5956 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--6769-6270 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--6758-4621 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--6757-4551-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--6770-6390 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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--6763-5177 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--6756-4137-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--6756-4183 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--6756-4340 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--12160-11793 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--12160-11917 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--12160-11857 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--12160-11917 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--12160-11917 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--12150-9827-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--12156-11711 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--13931-10573 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--5837-1393 (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--5591-1150 (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--5526-1090 (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--5461-1030 (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--5396-970 (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))))
(define Primitives-Core-toInt (lambda (arg-0) (let ((sc0 arg-0)) (cond ((equal? sc0 0) (vector 0 1)) (else (vector 0 0))))))
(define Primitives-Core-sub (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-4 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 1 (Prelude-C-45_Neg__Integer e-0 e-4)))))(else (vector 0 )))))) ((0) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-5 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 0 (Prelude-C-45_Neg__Int e-1 e-5)))))(else (vector 0 )))))) ((7) (let ((e-2 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((7) (let ((e-6 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 7 (Prelude-cast_Cast__Int_Char (Prelude-C-45_Neg__Int (Prelude-cast_Cast__Char_Int e-2) (Prelude-cast_Cast__Char_Int e-6)))))))(else (vector 0 )))))) ((8) (let ((e-3 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((8) (let ((e-7 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (vector 8 (Prelude-C-45_Neg__Double e-3 e-7)))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Primitives-Core-strTail (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 6 (substring e-7 1 (string-length e-7))))))(else (vector 0 ))))))))(else (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (substring e-7 1 (string-length e-7))))))(else (vector 0 )))))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
(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--5837-1393 '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) (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) (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 ))))))
(define Primitives-Core-gte (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62C-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-62C-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-62C-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-62C-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-62C-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-62C-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-62C-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-62C-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-62C-61_Ord__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Primitives-Core-gt (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-62_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-62_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-62_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-62_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-62_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-62_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-62_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-62_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-62_Ord__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Primitives-Core-getOp (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-add eta-1 eta-2))) arg-2 eta-0))) ((1) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-sub eta-1 eta-2))) arg-2 eta-0))) ((2) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-mul eta-1 eta-2))) arg-2 eta-0))) ((3) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-div eta-1 eta-2))) arg-2 eta-0))) ((4) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-mod eta-1 eta-2))) arg-2 eta-0))) ((5) (lambda (eta-0) (Primitives-Core-unaryOp (lambda (eta-1) (Primitives-Core-neg eta-1)) arg-2 eta-0))) ((6) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-shiftl eta-1 eta-2))) arg-2 eta-0))) ((7) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-shiftr eta-1 eta-2))) arg-2 eta-0))) ((8) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-band eta-1 eta-2))) arg-2 eta-0))) ((9) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-bor eta-1 eta-2))) arg-2 eta-0))) ((10) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-bxor eta-1 eta-2))) arg-2 eta-0))) ((11) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-lt eta-1 eta-2))) arg-2 eta-0))) ((12) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-lte eta-1 eta-2))) arg-2 eta-0))) ((13) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-eq eta-1 eta-2))) arg-2 eta-0))) ((14) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-gte eta-1 eta-2))) arg-2 eta-0))) ((15) (lambda (eta-0) (Primitives-Core-binOp (lambda (eta-1) (lambda (eta-2) (Primitives-Core-gt eta-1 eta-2))) arg-2 eta-0))) ((16) (lambda (eta-0) (Primitives-Core-strLength 'erased eta-0))) ((17) (lambda (eta-0) (Primitives-Core-strHead 'erased eta-0))) ((18) (lambda (eta-0) (Primitives-Core-strTail 'erased eta-0))) ((19) (lambda (eta-0) (Primitives-Core-strIndex 'erased eta-0))) ((20) (lambda (eta-0) (Primitives-Core-strCons 'erased eta-0))) ((21) (lambda (eta-0) (Primitives-Core-strAppend 'erased eta-0))) ((22) (lambda (eta-0) (Primitives-Core-strReverse 'erased eta-0))) ((23) (lambda (eta-0) (Primitives-Core-strSubstr 'erased eta-0))) ((24) (lambda (eta-0) (Primitives-Core-doubleExp 'erased eta-0))) ((25) (lambda (eta-0) (Primitives-Core-doubleLog 'erased eta-0))) ((26) (lambda (eta-0) (Primitives-Core-doubleSin 'erased eta-0))) ((27) (lambda (eta-0) (Primitives-Core-doubleCos 'erased eta-0))) ((28) (lambda (eta-0) (Primitives-Core-doubleTan 'erased eta-0))) ((29) (lambda (eta-0) (Primitives-Core-doubleASin 'erased eta-0))) ((30) (lambda (eta-0) (Primitives-Core-doubleACos 'erased eta-0))) ((31) (lambda (eta-0) (Primitives-Core-doubleATan 'erased eta-0))) ((32) (lambda (eta-0) (Primitives-Core-doubleSqrt 'erased eta-0))) ((33) (lambda (eta-0) (Primitives-Core-doubleFloor 'erased eta-0))) ((34) (lambda (eta-0) (Primitives-Core-doubleCeiling 'erased eta-0))) ((35) (let ((e-17 (vector-ref sc0 2))) (Primitives-Core-castTo 'erased e-17))) ((36) (lambda (eta-0) (Primitives-Core-believeMe 'erased eta-0)))(else (lambda (eta-0) (vector 0 )))))))
(define Prim-Primitives-Core-fn (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define Primitives-Core-eq (lambda (arg-0 arg-1) (let ((sc0 arg-0)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((sc1 arg-1)) (case (vector-ref sc1 0) ((0) (let ((e-9 (vector-ref sc1 1))) (Prelude-pure_Applicative__Maybe 'erased (Primitives-Core-toInt (Prelude-C-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__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-61C-61_Eq__Double e-8 e-17)))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Primitives-Core-doubleTy (lambda () (Primitives-Core-predTy (vector 18 ) (vector 18 ))))
(define Primitives-Core-doubleTan (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-tan eta-0)) ext-0)))
(define Primitives-Core-doubleSqrt (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-sqrt eta-0)) ext-0)))
(define Primitives-Core-doubleSin (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-sin eta-0)) ext-0)))
(define Primitives-Core-doubleOp (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-6)) (case (vector-ref sc2 0) ((8) (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 (arg-1 e-7)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
(define Primitives-Core-doubleLog (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-log eta-0)) ext-0)))
(define Primitives-Core-doubleFloor (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-floor eta-0)) ext-0)))
(define Primitives-Core-doubleExp (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-exp eta-0)) ext-0)))
(define Primitives-Core-doubleCos (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-cos eta-0)) ext-0)))
(define Primitives-Core-doubleCeiling (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-ceiling eta-0)) ext-0)))
(define Primitives-Core-doubleATan (lambda (arg-0 ext-0) (Primitives-Core-doubleOp 'erased (lambda (eta-0) (Prelude-atan eta-0)) ext-0)))
(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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 ))))
(define Primitives-Core-castTo (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((10) (lambda (eta-0) (Primitives-Core-castInt 'erased eta-0))) ((11) (lambda (eta-0) (Primitives-Core-castInteger 'erased eta-0))) ((12) (lambda (eta-0) (Primitives-Core-castBits8 'erased eta-0))) ((13) (lambda (eta-0) (Primitives-Core-castBits16 'erased eta-0))) ((14) (lambda (eta-0) (Primitives-Core-castBits32 'erased eta-0))) ((15) (lambda (eta-0) (Primitives-Core-castBits64 'erased eta-0))) ((16) (lambda (eta-0) (Primitives-Core-castString 'erased eta-0))) ((17) (lambda (eta-0) (Primitives-Core-castChar 'erased eta-0))) ((18) (lambda (eta-0) (Primitives-Core-castDouble 'erased eta-0)))(else (lambda (eta-0) (vector 0 )))))))
(define Primitives-Core-castString (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 6 (Prelude-show_Show__Int 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 6 (Prelude-show_Show__Integer e-8)))))(else (vector 0 )))))) ((2) (let ((e-9 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-show_Show__Int e-9)))))(else (vector 0 )))))) ((3) (let ((e-10 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-show_Show__Int e-10)))))(else (vector 0 )))))) ((4) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-show_Show__Int e-11)))))(else (vector 0 )))))) ((5) (let ((e-12 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-show_Show__Integer e-12)))))(else (vector 0 )))))) ((7) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (String-Utils-stripQuotes (Prelude-show_Show__Char e-13))))))(else (vector 0 )))))) ((8) (let ((e-14 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 6 (Prelude-show_Show__Double e-14)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
(define Primitives-Core-castInteger (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 1 (Prelude-cast_Cast__Int_Integer 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 1 (Prelude-cast_Cast__Int_Integer 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 1 (Prelude-cast_Cast__Int_Integer 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 1 (Prelude-cast_Cast__Int_Integer e-10)))))(else (vector 0 )))))) ((5) (let ((e-11 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 1 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 1 (Prelude-cast_Cast__Int_Integer (Prelude-cast_Cast__Char_Int e-12))))))(else (vector 0 )))))) ((8) (let ((e-13 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 1 (Prelude-cast_Cast__Double_Integer e-13)))))(else (vector 0 )))))) ((6) (let ((e-14 (vector-ref sc2 1))) (let ((sc3 e-3)) (case (vector-ref sc3 0) ((0) (vector 1 (vector 8 e-5 (vector 1 (Prelude-cast_Cast__String_Integer e-14)))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 )))))))(else (vector 0 ))))))
(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) (Primitives-Core-case--5396-970 '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--5591-1150 '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--5526-1090 '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--5461-1030 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (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--13702-8028 (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--13648-7977 (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--12842-7804 (lambda (arg-0 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--13046-7685 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 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--12895-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)) (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 (let ((sc5 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased (Binary-Core-getNSas eta-1))) (let ((sc6 arg-10)) (let ((e-18 (vector-ref sc6 19))) e-18))))))) (cond ((equal? sc5 0) (let ((act-28 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addTypeHint arg-9 arg-6 eta-1)) (let ((sc6 arg-16)) (let ((e-20 (vector-ref sc6 7))) e-20))) 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 ((Core-Core-traverse_ 'erased 'erased (lambda (eta-1) (Binary-Core-addAutoHint arg-9 eta-1)) (let ((sc7 arg-16)) (let ((e-22 (vector-ref sc7 6))) e-22))) 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 ((act-30 (Binary-Core-updatePair arg-9 (let ((sc8 arg-16)) (let ((e-12 (vector-ref sc8 12))) e-12)) 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 ((act-31 (Binary-Core-updateRewrite arg-9 (let ((sc9 arg-16)) (let ((e-13 (vector-ref sc9 13))) e-13)) 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 ((act-32 (Binary-Core-updatePrims arg-9 (let ((sc10 arg-16)) (let ((e-14 (vector-ref sc10 14))) e-14)) 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 ((act-33 ((Binary-Core-updateNameDirectives arg-9 (List-Data-reverse 'erased (let ((sc11 arg-16)) (let ((e-15 (vector-ref sc11 15))) e-15)))) 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 ((act-34 (Binary-Core-updateCGDirectives arg-9 (let ((sc12 arg-16)) (let ((e-16 (vector-ref sc12 16))) e-16)) eta-0))) (let ((sc12 act-34)) (case (vector-ref sc12 0) ((0) (let ((e-2 (vector-ref sc12 1))) (vector 0 e-2))) (else ((Binary-Core-updateTransforms arg-9 (let ((sc13 arg-16)) (let ((e-17 (vector-ref sc13 17))) e-17))) 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 ((act-29 (let ((sc6 (Prelude-not arg-5))) (cond ((equal? sc6 0) (Context-Core-clearSavedHints arg-9 eta-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 ((act-30 (Context-Core-resetFirstEntry arg-9 eta-0))) (let ((sc7 act-30)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((act-31 (let ((act-31 (unbox arg-8))) (vector 1 act-31)))) (let ((sc8 act-31)) (case (vector-ref sc8 0) ((0) (let ((e-2 (vector-ref sc8 1))) (vector 0 e-2))) (else (let ((e-12 (vector-ref sc8 1))) (let ((act-32 (let ((act-32 (set-box! arg-8 (let ((sc9 e-12)) (let ((e-0 (vector-ref sc9 1))) (let ((e-1 (vector-ref sc9 2))) (let ((e-2 (vector-ref sc9 3))) (let ((e-3 (vector-ref sc9 4))) (let ((e-4 (vector-ref sc9 5))) (let ((e-17 (vector-ref sc9 6))) (let ((e-15 (vector-ref sc9 8))) (let ((e-14 (vector-ref sc9 9))) (let ((e-13 (vector-ref sc9 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-17 (let ((sc10 arg-16)) (let ((e-27 (vector-ref sc10 9))) e-27)) e-15 e-14 e-13)))))))))))))) (vector 1 act-32)))) (let ((sc9 act-32)) (case (vector-ref sc9 0) ((0) (let ((e-2 (vector-ref sc9 1))) (vector 0 e-2))) (else (vector 1 (vector 1 (vector 0 arg-17 (vector 0 (let ((sc10 arg-16)) (let ((e-2 (vector-ref sc10 2))) e-2)) (let ((sc10 arg-16)) (let ((e-24 (vector-ref sc10 8))) e-24)))))))))))))))))))))))))))))))))))))))))))))))))
(define Binary-Core-case--12895-7298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15) (let ((sc0 arg-15)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 arg-2))))))
(define Binary-Core-case--12842-7253 (lambda (arg-0 arg-1 arg-2 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--12895-7298 '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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-2 arg-3))))) (let ((act-25 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 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--12895-7379 '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 (Binary-Core-n--12644-7041-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (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--12644-7207 (lambda (arg-0 arg-1 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--12895-7298 '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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-2 arg-3))))) (let ((act-27 (Binary-Core-readTTCFile 'erased arg-1 arg-9 arg-4 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--12895-7379 '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 (Binary-Core-n--12644-7041-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-3 arg-2 (let ((sc6 arg-10)) (let ((e-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--12660-7092 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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) 0) (else (Binary-Core-n--12644-7041-alreadyDone 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-16 arg-15 arg-14))))))
(define Binary-Core-case--12437-6970 (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--12437-6898 (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--12422-6846 (lambda (arg-0 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--12339-6810 (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--12259-6743 (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--12197-6675 (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--12170-6603 (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--12103-6583 (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--12036-6518 (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--11960-6452 (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--11741-6287 (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 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--11753-6205 (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--11560-6119 (lambda (arg-0 arg-1 arg-2 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--11457-5938 (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--11437-5925 (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--11457-5938 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-n--10058-4528-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--10058-4528-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--10481-5139-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--10481-5140-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--10481-5138-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--10057-4499-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--10057-4499-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--10480-4945-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--10480-4946-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--10480-4944-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--11741-6196-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--11753-6205 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--12644-7041-alreadyDone (lambda (arg-0 arg-1 arg-2 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) 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))) (Binary-Core-case--12660-7092 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 e-14 e-6 e-10 e-15 e-3 arg-11 arg-10 (Prelude-C-124C-124 (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-10 e-10) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-11 e-15))) (lambda () (Prelude-C-38C-38 (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-10 e-10) (lambda () (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-10 arg-11))))))))))))))))))))))
(define Binary-Core-n--12405-6830-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--12422-6846 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--10481-5138-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--10481-5139-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--10481-5140-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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293)))) 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--10058-4528-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--10480-4944-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--10480-4945-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--10480-4946-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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293)))) 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--10057-4499-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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293))))))
(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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293))))))
(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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293))))))
(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-6290) (lambda (arg-6291) (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-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (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-6292 arg-6293))))))
(define Binary-Core-__Impl_HasNames_C-40TTCFileC-32C-36eC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased arg-1 arg-6292 arg-6293))))))
(define Binary-Core-__Impl_HasNames_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40ListC-32C-36aC-41 'erased arg-1 arg-6292 arg-6293))))))
(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-6290) (lambda (arg-6291) (Binary-Core-full_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Binary-Core-resolved_HasNames__C-40TTCFileC-32C-36eC-41 'erased (Builtin-fst 'erased 'erased arg-1) arg-6292 arg-6293)))) 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Binary arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Binary arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__String arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-1)))) arg-2125 arg-2126 eta-0)))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-1)))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-3)))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CG arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CG arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Transform arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Transform arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2125 eta-1))))) arg-2124 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Transform arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Transform arg-6292 arg-6293)))) 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--12405-6830-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-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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Options-Core-C-61C-61_Eq__CG arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Options-Core-C-47C-61_Eq__CG arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Options-Core-C-61C-61_Eq__CG arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Options-Core-C-47C-61_Eq__CG arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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 () 35))
(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 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 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Binary arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Binary arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Binary arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Binary arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__String arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-1)))) arg-2125 arg-2126 eta-0)))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-1)))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__String arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2122 arg-2125 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__String arg-2127 eta-3)))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-1)))) arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__PairNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__PairNames arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (TTC-Core-toBuf_TTC__RewriteNames arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RewriteNames arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__CG arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__CG arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CG arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CG arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Transform arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Transform arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Transform arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Transform arg-2125 eta-1))))) arg-2124 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--12644-7207 '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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Bool arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (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))))
(define TTCFile-Binary-Core-nestedNS (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11))))
(define TTCFile-Binary-Core-namedirectives (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-15 (vector-ref sc0 15))) e-15))))
(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--11457-5938 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__String arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__Int arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Int arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__String arg-2126 eta-2)))) arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__Int arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Int arg-2125 eta-1))))) arg-2124 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))))
(define TTCFile-Binary-Core-context (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-4 (vector-ref sc0 4))) e-4))))
(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-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))) (let ((act-27 ((Binary-Core-case--11741-6287 e-2 e-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Binary-Core-n--11741-6196-completeDef e-2 e-3 arg-2 arg-1 arg-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 ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (as) (lambda (eta-1) (Context-Core-addContextAlias arg-0 (Name-Core-asName arg-1 as e-2) e-2 eta-1)))) arg-2) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--13304-7945 (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--13304-7922 (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--13276-7896 (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--12912-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) (let ((sc0 arg-13)) (cond ((equal? sc0 0) " (Invertible)") (else "")))))
(define UnifyState-Core-case--12762-7529 (lambda (arg-0 arg-1 arg-2 arg-3 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) " (ImplBind)") (else (Strings-Prelude-C-43C-43 "" (UnifyState-Core-case--12912-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 (let ((sc1 arg-7)) (let ((e-14 (vector-ref sc1 15))) e-14)))))))))
(define UnifyState-Core-case--12713-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) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--12339-7000-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) (UnifyState-Core-case--12762-7529 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-7 e-8 e-3 e-5 (let ((sc3 e-8)) (let ((e-0 (vector-ref sc3 1))) e-0)))))))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--12663-7343 (lambda (arg-0 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--12713-7384 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--12339-7297 (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--12713-7384 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--12367-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 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--12346-7022 (lambda (arg-0 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--12139-6954 (lambda (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--11720-6632 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--11720-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 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--11672-6434 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11505-6400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11505-6299 (lambda (arg-0 arg-1 arg-2 arg-3 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--11478-6257 (lambda (arg-0 arg-1 arg-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--11505-6400 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--11422-6198-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--11422-6198-checkRef arg-0 arg-1 arg-2 arg-3 arg-4 eta-1)) e-5) eta-0))))))))))))
(define UnifyState-Core-case--11422-6238 (lambda (arg-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--11478-6257 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--11361-6146 (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--11312-6120 (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--11254-6054 (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--11196-6004 (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--11068-5952 (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--10536-5514 (lambda (arg-0 arg-1 arg-2 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--10536-5359 (lambda (arg-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--9724-4607 (lambda (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--9724-4545-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--9642-4489 (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--9583-4435 (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--9544-4390 (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--9382-4240 (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--9345-4206 (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--9304-4172 (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--9258-4110 (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--9215-4085 (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--9163-4040 (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--9104-3986 (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--9051-3942 (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--8998-3893 (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--8944-3844 (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--8870-3794 (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--8811-3725 (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-3678 (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--12139-6803-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--9724-4545-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--10994-5788-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--10916-5705-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--10810-5589-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--10536-5337-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--12339-7000-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--12346-7022 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--11422-6198-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--9258-4110 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--10916-5705-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--10536-5514 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--10536-5337-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--10994-5788-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--10810-5589-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--9724-4607 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--9724-4545-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)))
(define UState-UnifyState-Core-holes (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-0 (vector-ref sc0 1))) e-0))))
(define UnifyState-Core-handleUnify (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 (let ((e-6 (vector-ref sc1 1))) ((arg-4 e-6) ext-0))))))))))))
(define UState-UnifyState-Core-guesses (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(define UnifyState-Core-getHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) e-0))))))))))
(define UnifyState-Core-getGuesses (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))
(define UnifyState-Core-getCurrentHoles (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-2 (vector-ref sc1 3))) e-2))))))))))
(define UnifyState-Core-genWithName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (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 8 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))) ext-0))))))))))))
(define UnifyState-Core-genVarName (lambda (arg-0 arg-1 arg-2 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (let ((act-25 (set-box! arg-1 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (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 (vector 2 arg-2 (let ((sc2 e-5)) (let ((e-10 (vector-ref sc2 7))) e-10)))))))))))))))
(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--12339-7297 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--13276-7896 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--11478-6257 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--12139-6954 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--12139-6803-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--11361-6146 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)))))))))
(define UnifyState-Core-addGuessName (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (set-box! arg-0 (let ((sc1 e-5)) (let ((e-0 (vector-ref sc1 1))) (let ((e-1 (vector-ref sc1 2))) (let ((e-2 (vector-ref sc1 3))) (let ((e-3 (vector-ref sc1 4))) (let ((e-4 (vector-ref sc1 5))) (let ((e-10 (vector-ref sc1 6))) (let ((e-6 (vector-ref sc1 7))) (let ((e-7 (vector-ref sc1 8))) (let ((e-8 (vector-ref sc1 9))) (let ((e-9 (vector-ref sc1 10))) (vector 0 e-0 (IntMap-Data-insert 'erased arg-3 (vector 0 arg-1 arg-2) e-1) e-2 e-3 e-4 e-10 e-6 e-7 e-8 e-9))))))))))))))) (vector 1 act-25)))))))))
(define 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--10860-7738 (lambda (arg-0 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--10831-7678 (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-3443) (lambda (eta-3) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-3)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-3) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-3) (let ((act-17 (arg-3511 eta-3))) (let ((act-16 (arg-3513 eta-3))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-3) (let ((act-24 (arg-3672 eta-3))) ((arg-3673 act-24) eta-3))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-3) (let ((act-51 (arg-3675 eta-3))) (act-51 eta-3)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10549-7433 (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--10413-7282-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--10413-7283-checkTotality arg-0 arg-1 arg-8 eta-0)))))))
(define ProcessDecls-TTImp-case--10413-7395 (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--10413-7284-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--10413-7282-checkCovering arg-0 arg-1 fc (let ((sc4 tot)) (let ((e-2 (vector-ref sc4 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10413-7283-checkTotality arg-0 arg-1 fc eta-0))))))))))))))))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define ProcessDecls-TTImp-case--10440-7325 (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--10202-7198 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--10413-7284-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--10413-7284-findSetTotal arg-0 arg-1 e-3)))))))))))
(define ProcessDecls-TTImp-n--10413-7283-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--10413-7282-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--10440-7325 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--10413-7282-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--10722-7566-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--10722-7565-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--10722-7565-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--10722-7564-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--10722-7564-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 (_-7808) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-25 (arg-3672 eta-2))) ((arg-3673 act-25) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10722-7566-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--10413-7284-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--10413-7282-checkCovering arg-1 arg-0 fc (let ((sc7 tot)) (let ((e-3 (vector-ref sc7 2))) e-3))) eta-0)) (else (ProcessDecls-TTImp-n--10413-7283-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--10413-7284-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--10413-7282-checkCovering arg-1 arg-0 fc (let ((sc6 tot)) (let ((e-2 (vector-ref sc6 2))) e-2))) eta-0)) (else (ProcessDecls-TTImp-n--10413-7283-checkTotality arg-1 arg-0 fc eta-0)))))))))))))))))) (else (vector 1 (vector 0 )))))))))))))))))))))
(define ProcessType-TTImp-case--10681-9077 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--10557-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 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--10681-9077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-20 eta-0)))))) (else (vector 1 (vector 0 ))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessType-TTImp-case--10483-8732 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10681-9077 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--10269-8497 (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--10246-8460 (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--10269-8497 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) e-2 arg-5))))))))
(define ProcessType-TTImp-case--10039-8300 (lambda (arg-0 arg-1 arg-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--9918-8208 (lambda (arg-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--8820-8134 (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--8820-7215-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--8820-7211-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--8820-7214-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--8921-7948 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--8820-7213-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Builtin-fst 'erased 'erased x) arg-11))))) (NameMap-Data-toList 'erased e-5)))) (let ((accC-39 (ProcessType-TTImp-n--8820-7210-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--8820-7214-collectSpec arg-0 arg-1 arg-2 arg-3 accC-39 arg-11 arg-10 arg-15) eta-0)))))))))) (else (ProcessType-TTImp-n--8820-7214-collectSpec arg-0 arg-1 arg-2 arg-3 arg-12 arg-11 arg-10 arg-15))))))
(define ProcessType-TTImp-case--8920-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 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--8820-7212-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--8820-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 1 e-6 e-5) eta-0)))))))))))))))))
(define ProcessType-TTImp-case--8920-7762 (lambda (arg-0 arg-1 arg-2 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--9338-7656 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9313-7615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9338-7656 arg-0 arg-1 arg-2 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-14 arg-13)))))))
(define ProcessType-TTImp-case--8918-7357 (lambda (arg-0 arg-1 arg-2 arg-3 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--8820-7211-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--8820-7211-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--8938-7274 (lambda (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--8820-7210-insertDeps arg-0 arg-1 arg-2 arg-3 arg-7 arg-6 arg-5)) (else (ProcessType-TTImp-n--8820-7210-insertDeps arg-0 arg-1 arg-2 arg-3 (vector 1 arg-8 arg-7) arg-6 arg-5))))))
(define ProcessType-TTImp-case--8917-7231 (lambda (arg-0 arg-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--8820-7210-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--8938-7274 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) e-2 arg-7))))))))
(define ProcessType-TTImp-case--8820-7149 (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--8920-7590-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--9313-7615 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--8920-7590-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--8820-7210-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--8917-7231 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-5)))))))))
(define ProcessType-TTImp-n--8820-7215-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--8820-7215-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--8820-7212-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--8820-7213-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--8820-7212-getDepsArgs arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
(define ProcessType-TTImp-n--8820-7213-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--8820-7213-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--8820-7213-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--8820-7213-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--8820-7213-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--8820-7212-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--8820-7212-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--8920-7838 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--8920-7590-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--8820-7213-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--10242-8434-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--10242-8434-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--10242-8433-findInf arg-0 arg-1 e-5 arg-3 e-2) eta-0))))))))))))))
(define ProcessType-TTImp-n--10242-8433-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--10246-8460 arg-0 arg-1 e-1 e-22 arg-3 arg-2 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--10242-8434-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--10242-8434-findInfs arg-0 arg-1 arg-2 arg-3 e-5) eta-0))))))))) ((5) (let ((e-19 (vector-ref sc0 3))) (ProcessType-TTImp-n--10242-8433-findInf arg-0 arg-1 arg-2 arg-3 e-19)))(else (lambda (eta-0) (vector 1 arg-2)))))))
(define ProcessType-TTImp-n--10242-8435-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--10242-8433-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--10242-8435-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--10242-8433-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))))(else (ProcessType-TTImp-n--10242-8433-findInf arg-0 arg-1 arg-5 arg-4 arg-6))))))
(define ProcessType-TTImp-n--8820-7214-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--8921-7948 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--8820-7211-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--8918-7357 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10681-9077 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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--8820-7215-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--8820-7211-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--8820-7214-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--10242-8435-fi arg-1 arg-0 0 0 (vector 0 ) (vector 0 ) arg-1)))
(define Elab-TTImp-case--13264-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) (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--13264-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) (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--13264-9309-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--11228-9227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11539-9147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--11539-9067 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12421-8876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--11539-8604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12421-8876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--11539-8382 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--11539-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 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--11539-7882 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--11228-7823 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--12421-8876 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--11228-7563-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--11228-7746 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11250-7578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11228-7563-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--11228-7563-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--11176-7514 (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--11080-7422 (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--11005-7339-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--11011-7409 (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--11080-7422 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--11010-7387 (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--10975-7322 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Elab-TTImp-case--10817-7254 (lambda (arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) 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--10817-7194 (lambda (arg-0 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--10703-7099 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--11005-7339-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--11005-7340-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--11080-7422 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--13264-9308-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--13264-9308-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) (vector 31 arg-15 0) e-5)))))))))))))))))
(define Elab-TTImp-n--13264-9309-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--13264-9308-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--13264-9308-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--11228-7563-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--11250-7578 arg-0 arg-1 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--11005-7340-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((1) (let ((e-0 (vector-ref sc0 1))) (Elab-TTImp-case--10975-7322 e-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-0))))(else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10703-7099 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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 1 ) arg-7))) (let ((inPE (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 2 ) arg-7))) (let ((inTrans (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (vector 3 ) arg-7))) (lambda (eta-0) (let ((act-24 ((Elab-TTImp-case--11228-7746 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--12421-8876 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--11228-7563-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--10817-7194 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-2)))))))(else (Elab-TTImp-case--10817-7254 arg-0 e-2 e-4 e-3 e-1 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--13264-9309-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--10310-13669 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14046-13570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--14046-13513 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14858-13298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--14046-13189-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--14844-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) (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--14046-13189-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--14046-12959 (lambda (arg-0 arg-1 arg-2 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--14046-12470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13412-12372 (lambda (arg-0 arg-1 arg-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--13398-11837-bindLamNF 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) eta-0))))))))))))
(define Term-Elab-TTImp-case--13410-12098 (lambda (arg-0 arg-1 arg-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--13410-12021 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13410-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) (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--14046-13189-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--14844-13203 arg-0 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--13398-11836-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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11836-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--13398-11836-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--13410-12098 '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--13410-12098 '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--13410-12098 '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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11837-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--13398-11838-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--13398-11836-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--13398-11837-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--13398-11838-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--14046-12959 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--14046-13189-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--10310-13669 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--11963-17194 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__FnOpt vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337))))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) 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--11646-16879 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3336 arg-3337)))) 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--11429-16669 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) eta-10 eta-11 eta-12)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337))))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__IField vars arg-3336 arg-3337)))) 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--11237-16484 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) 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--10965-16216 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__DataOpt vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpTy vars arg-3336 arg-3337)))) 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--10717-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 "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--10561-15826 (lambda (arg-0 arg-1 arg-2 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--10096-15364 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) 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--9912-15187 (lambda (arg-0 arg-1 arg-2 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--9707-14987 (lambda (arg-0 arg-1 arg-2 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--7358-12582 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpClause vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__IFieldUpdate vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__RawImp vars arg-3336 arg-3337)))) 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-3336) (lambda (arg-3337) (Reflect-TTImp-reify_Reify__ImpDecl vars arg-3336 arg-3337)))) 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--7041-12271 (lambda (arg-0 arg-1 arg-2 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--6874-12100 (lambda (arg-0 arg-1 arg-2 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--6641-11864 (lambda (arg-0 arg-1 arg-2 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--6874-12100 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--7358-12582 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--10561-15826 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--11429-16669 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--11963-17194 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--10965-16216 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--11646-16879 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--9707-14987 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--11237-16484 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--10096-15364 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--7041-12271 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--10717-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 "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--6641-11864 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--9912-15187 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__IFieldUpdate vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) eta-19 eta-20 eta-21 eta-22 eta-23 eta-24))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361)))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__IField vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__FnOpt vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361)))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpDecl vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__DataOpt vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpTy vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__ImpClause vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (Reflect-TTImp-reflect_Reflect__RawImp vars arg-3357 arg-3358 onLHS arg-3359 arg-3361))))))) 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)))))))
(define Reflect-TTImp-reflect_Reflect__AltType (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 "FirstSuccess") eta-0))) ((1) (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-reflectionttimp "Unique") eta-0))) (else (let ((e-0 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 ((Reflect-TTImp-reflect_Reflect__RawImp 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 "UniqueDefault") (vector 1 e-5 (vector 0 )) eta-0)))))))))))))
(define Reflect-TTImp-__Impl_Reify_RawImp (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__RawImp ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_ImpTy (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__ImpTy ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_ImpDecl (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__ImpDecl ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_ImpClause (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__ImpClause ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_IFieldUpdate (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__IFieldUpdate ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_IField (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__IField ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_FnOpt (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__FnOpt ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_DataOpt (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__DataOpt ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reify_AltType (lambda (ext-0 ext-1 ext-2) (Reflect-TTImp-reify_Reify__AltType ext-0 ext-1 ext-2)))
(define Reflect-TTImp-__Impl_Reflect_RawImp (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__RawImp ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-TTImp-__Impl_Reflect_ImpTy (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__ImpTy ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-TTImp-__Impl_Reflect_ImpDecl (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__ImpDecl ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-TTImp-__Impl_Reflect_ImpClause (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__ImpClause ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-TTImp-__Impl_Reflect_IFieldUpdate (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__IFieldUpdate ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-TTImp-__Impl_Reflect_IField (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-TTImp-reflect_Reflect__IField ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(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--10371-8211 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337))))) 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-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337)))) (lambda (vars) (lambda (arg-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__Int vars arg-3336 arg-3337))))) 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--10202-8034 (lambda (arg-0 arg-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--9853-7691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9673-7493 (lambda (arg-0 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))) ((equal? sc2 "M1") (lambda (eta-0) (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9504-7317 (lambda (arg-0 arg-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--9335-7143 (lambda (arg-0 arg-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--8295-6086 (lambda (arg-0 arg-1 arg-2 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--7743-5649 (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--7383-5163 (lambda (arg-0 arg-1 arg-2 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-3336) (lambda (arg-3337) (Reflect-Core-reify_Reify__String vars arg-3336 arg-3337)))) 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--7128-4932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--6878-4662 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--6595-4372 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--6397-4160 (lambda (arg-0 arg-1 arg-2 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--6254-4009 (lambda (arg-0 arg-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--5721-3403 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc4 "M1") (vector 1 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--6397-4160 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--7383-5163 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--10371-8211 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--8295-6086 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--9853-7691 '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--6878-4662 '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--6595-4372 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__String vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1)))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 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-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 eta-1)))))))) (lambda (vars) (lambda (arg-3357) (lambda (arg-3358) (lambda (onLHS) (lambda (arg-3359) (lambda (arg-3361) (lambda (eta-1) (Reflect-Core-reflect_Reflect__Int vars arg-3357 arg-3358 onLHS arg-3359 arg-3361 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)))))
(define Reflect-Core-reflect_Reflect__Bool (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 "True") eta-0))) (else (lambda (eta-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-prelude "False") eta-0)))))))
(define Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Reflect-Core-getCon arg-0 arg-1 arg-2 (Reflect-Core-builtin "MkUnit") ext-0)))
(define 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 (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 ((((((((Builtin-fst 'erased 'erased arg-2) arg-3) arg-4) arg-5) arg-6) arg-7) 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 ((((((((Builtin-snd 'erased 'erased 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))) (Reflect-Core-appCon arg-3 arg-4 arg-5 (Reflect-Core-builtin "MkPair") (vector 1 (vector 10 arg-4 1) (vector 1 (vector 10 arg-4 1) (vector 1 e-5 (vector 1 e-6 (vector 0 ))))) eta-0)))))))))))))))))
(define Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 (lambda (arg-0 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) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-reflectiontt "ImplicitArg") (vector 1 (vector 10 arg-3 1) (vector 0 )) eta-0))) ((1) (lambda (eta-0) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-reflectiontt "ExplicitArg") (vector 1 (vector 10 arg-3 1) (vector 0 )) eta-0))) ((2) (lambda (eta-0) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-reflectiontt "AutoImplicit") (vector 1 (vector 10 arg-3 1) (vector 0 )) eta-0))) (else (let ((e-4 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((((((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-5 (vector-ref sc1 1))) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-reflectiontt "DefImplicit") (vector 1 (vector 10 arg-3 1) (vector 1 e-5 (vector 0 ))) eta-0)))))))))))))
(define Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 (lambda (arg-0 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) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-prelude "Nothing") (vector 1 (vector 10 arg-3 1) (vector 0 )) eta-0))) (else (let ((e-2 (vector-ref sc0 1))) (lambda (eta-0) (let ((act-24 (((((((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))) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-prelude "Just") (vector 1 (vector 10 arg-3 1) (vector 1 e-5 (vector 0 ))) eta-0)))))))))))))
(define Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 (lambda (arg-0 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) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-prelude "Nil") (vector 1 (vector 10 arg-3 1) (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 (((((((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-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased 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))) (Reflect-Core-appCon arg-2 arg-3 arg-4 (Reflect-Core-prelude "::") (vector 1 (vector 10 arg-3 1) (vector 1 e-5 (vector 1 e-6 (vector 0 )))) eta-0)))))))))))))))))))
(define Reflect-Core-__Impl_Reify_String (lambda (ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__String ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_RigCount (lambda (ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__RigCount ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_Nat (lambda (ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__Nat ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_Name (lambda (ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__Name ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_Int (lambda (ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__Int ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_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 ext-0 ext-1 ext-2) (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 arg-2 ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__C-40PiInfoC-32C-36tC-41 'erased arg-1 ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__C-40MaybeC-32C-36aC-41 'erased arg-1 ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reify_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2) (Reflect-Core-reify_Reify__C-40ListC-32C-36aC-41 'erased arg-1 ext-0 ext-1 ext-2)))
(define Reflect-Core-__Impl_Reflect_String (lambda (ext-6 ext-1 ext-2 ext-3 ext-4 ext-5 ext-0) (Reflect-Core-reflect_Reflect__String ext-6 ext-1 ext-2 ext-3 ext-4 ext-5 ext-0)))
(define Reflect-Core-__Impl_Reflect_RigCount (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-Core-reflect_Reflect__RigCount ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-__Impl_Reflect_Nat (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-Core-reflect_Reflect__Nat ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-__Impl_Reflect_Name (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-Core-reflect_Reflect__Name ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-__Impl_Reflect_Int (lambda (ext-6 ext-1 ext-2 ext-3 ext-4 ext-5 ext-0) (Reflect-Core-reflect_Reflect__Int ext-6 ext-1 ext-2 ext-3 ext-4 ext-5 ext-0)))
(define Reflect-Core-__Impl_Reflect_C-40C-124UnitC-44MkUnitC-124C-41 (lambda (ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (lambda (eta-0) (Reflect-Core-reflect_Reflect__C-40C-124UnitC-44MkUnitC-124C-41 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5 eta-0))))
(define Reflect-Core-__Impl_Reflect_C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 (lambda (arg-0 arg-1 arg-2 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (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 arg-2 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-__Impl_Reflect_C-40PiInfoC-32C-36tC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-Core-reflect_Reflect__C-40PiInfoC-32C-36tC-41 'erased arg-1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-__Impl_Reflect_C-40MaybeC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-Core-reflect_Reflect__C-40MaybeC-32C-36aC-41 'erased arg-1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-__Impl_Reflect_C-40ListC-32C-36aC-41 (lambda (arg-0 arg-1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5) (Reflect-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased arg-1 ext-0 ext-1 ext-2 ext-3 ext-4 ext-5)))
(define Reflect-Core-reify (lambda (arg-0 arg-1 arg-2 ext-0 ext-1) (((arg-2 arg-1) ext-0) ext-1)))
(define Reflect-Core-reflectionttimp (lambda (arg-0) (vector 0 (vector 1 "TTImp" (vector 1 "Reflection" (vector 1 "Language" (vector 0 )))) (vector 1 arg-0))))
(define Reflect-Core-reflectiontt (lambda (arg-0) (vector 0 (vector 1 "TT" (vector 1 "Reflection" (vector 1 "Language" (vector 0 )))) (vector 1 arg-0))))
(define Reflect-Core-reflect (lambda (arg-0 arg-1 arg-2 ext-0 ext-1 ext-2 ext-3 ext-4) ((((((arg-2 arg-1) ext-0) ext-1) ext-2) ext-3) ext-4)))
(define Reflect-Core-prelude (lambda (arg-0) (vector 0 (vector 1 "Prelude" (vector 0 )) (vector 1 arg-0))))
(define Reflect-Core-getCon (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 (Context-Core-lookupDefExact arg-3 (let ((sc0 arg-2)) (let ((e-0 (vector-ref sc0 1))) e-0)) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (case (vector-ref sc1 0) ((1) (let ((e-1 (vector-ref sc1 1))) (let ((sc2 e-1)) (case (vector-ref sc2 0) ((5) (let ((e-2 (vector-ref sc2 1))) (let ((e-3 (vector-ref sc2 2))) ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 1 arg-1 (vector 2 e-2 e-3) arg-3)) ext-0)))) ((6) (let ((e-13 (vector-ref sc2 1))) (let ((e-6 (vector-ref sc2 2))) ((Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased (let ((sc3 arg-2)) (let ((e-0 (vector-ref sc3 1))) e-0)) (vector 1 arg-1 (vector 3 e-13 e-6) arg-3)) ext-0))))(else ((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-1 (vector 1 ) arg-3)) ext-0))))))(else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-1 arg-3) ext-0)))))))))))
(define Reflect-Core-cantReify (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 47 (Value-Core-getLoc 'erased arg-2) (Strings-Prelude-C-43C-43 "Can't reify as " arg-3)) ext-0)))
(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--12683-9831 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11140-9615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11140-8270-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11164-9446 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11140-8269-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--11164-9314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) 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--11140-8269-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--11164-9057 (lambda (arg-0 arg-1 arg-2 arg-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--11140-8269-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--11164-8883 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11164-8845-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--11164-8730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--11164-8394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11164-9219-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--11140-8269-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--11164-8845-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--12683-9729-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-4 e-5 (vector 11 arg-3) eta-0))))))))))))
(define RunElab-Elab-TTImp-n--11140-8268-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--11140-8270-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11164-8845-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11164-9219-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11164-9314 arg-0 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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8269-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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--11140-8268-failWith arg-0 arg-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--11140-8270-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--11140-8268-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--11140-8268-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--11140-8268-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--11140-8268-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--11140-8268-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--11140-8268-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--11140-8268-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--12683-9729-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--11400-8358 (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--11400-8314 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--11400-8262 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--10866-7998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11071-7868 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10866-7830 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--11071-7868 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--10812-7619 (lambda (arg-0 arg-1 arg-2 arg-3 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--11071-7868 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--10411-7310 (lambda (arg-0 arg-1 arg-2 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--10411-7228 (lambda (arg-0 arg-1 arg-2 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--10123-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) (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--10123-6976 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--9897-6841 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9815-6753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9573-6570 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--9502-6455 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9457-6394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9316-6328 (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--9316-6288 (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--9210-6190 (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--9210-6165-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--9210-6143 (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--9210-6165-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--9815-6681-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11400-8121-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--11400-8121-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--11071-7868 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))) ((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--9210-6165-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--10123-6976 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--10123-7058 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--9457-6394 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--9815-6681-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10411-7228 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--10411-7310 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--13894-7658 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13894-7425 (lambda (arg-0 arg-1 arg-2 arg-3 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--13862-7394 (lambda (arg-0 arg-1 arg-2 arg-3 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--13894-7425 arg-0 arg-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--13894-7658 arg-0 arg-1 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--13523-7247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
(define Check-Elab-TTImp-case--13523-7115 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) arg-16) arg-17))))))
(define Check-Elab-TTImp-case--13337-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 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-10 arg-9) arg-11) arg-5) arg-3) e-5) e-6) eta-0))))))))))))))))))))
(define Check-Elab-TTImp-case--13337-6905 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12761-6683 (lambda (arg-0 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--12761-6382-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--12793-6606 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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--12805-6470 (lambda (arg-0 arg-1 arg-2 arg-3 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--12789-6393 (lambda (arg-0 arg-1 arg-2 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--12805-6470 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--12805-6470 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--12805-6470 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--12302-6130 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--12302-5938 (lambda (arg-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--12218-5856 (lambda (arg-0 arg-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--12134-5786 (lambda (arg-0 arg-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--11943-5712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--11715-5410 (lambda (arg-0 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--11583-5317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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))) (vector 0 e-0 0)))))
(define Check-Elab-TTImp-case--11547-5280 (lambda (arg-0 arg-1 arg-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 ((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))) (let ((tynf (vector 1 e-1 (vector 2 e-5 e-6 e-7) e-3))) (Check-Elab-TTImp-case--11583-5317 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 e-3 e-5 e-6 e-7 tynf (Context-Core-holeInit 1)))))))(else (Context-Core-holeInit 1))))))))(else (Context-Core-holeInit 1))))))
(define Check-Elab-TTImp-case--11486-5219 (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--11425-5169 (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--11367-5125 (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--11295-5061 (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--11232-4998 (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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--10452-4612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--10452-4463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--10451-4368 (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--10432-4229-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--10223-4045 (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--10277-4070-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--10432-4231-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--10452-4463 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--10432-4230-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--10452-4612 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--10432-4229-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--10432-4229-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--10432-4229-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--10432-4229-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--10432-4230-removeArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (Check-Elab-TTImp-case--10451-4368 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--9230-3119-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--9230-3119-insertAll arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7))))))))))))
(define Check-Elab-TTImp-n--12761-6378-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--12789-6393 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--12761-6379-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--12761-6380-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--10432-4232-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--10432-4227-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--12761-6381-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--12761-6381-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--12761-6380-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--12761-6382-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--12793-6606 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--12761-6381-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--12761-6379-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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439))))))
(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--10277-4070-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--10277-4070-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--10432-4227-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--10432-4231-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--10432-4231-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--10432-4232-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)))))))))
(define ElabInfo-Check-Elab-TTImp-preciseInf (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define EState-Check-Elab-TTImp-outerEnv (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-3 (vector-ref sc0 3))) e-3))))
(define EState-Check-Elab-TTImp-outer (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-1 (vector-ref sc0 1))) e-1))))
(define Check-Elab-TTImp-notePatVar (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 (vector 1 arg-2 e-9) e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))
(define Check-Elab-TTImp-noteLHSPatVar (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((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-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((e-4 (vector-ref sc2 4))) (let ((e-14 (vector-ref sc2 5))) (let ((e-6 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (let ((e-8 (vector-ref sc2 8))) (let ((e-9 (vector-ref sc2 9))) (let ((e-10 (vector-ref sc2 10))) (let ((e-11 (vector-ref sc2 11))) (let ((e-12 (vector-ref sc2 12))) (let ((e-13 (vector-ref sc2 13))) (vector 0 e-1 e-2 e-3 e-4 e-14 e-6 e-7 (vector 1 arg-3 e-8) e-9 e-10 e-11 e-12 e-13)))))))))))))))))) (vector 1 act-25)))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Check-Elab-TTImp-metaVarI (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Normalise-Core-nf arg-0 e-5 arg-5 arg-7) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((hinf (let ((sc2 e-6)) (case (vector-ref sc2 0) ((1) (let ((e-1 (vector-ref sc2 1))) (let ((e-2 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 3))) (let ((sc3 e-2)) (case (vector-ref sc3 0) ((2) (let ((e-9 (vector-ref sc3 1))) (let ((e-8 (vector-ref sc3 2))) (let ((e-7 (vector-ref sc3 3))) (let ((tynf (vector 1 e-1 (vector 2 e-9 e-8 e-7) e-3))) (Check-Elab-TTImp-case--11583-5317 arg-0 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 e-1 e-3 e-9 e-8 e-7 tynf (Context-Core-holeInit 1)))))))(else (Context-Core-holeInit 1))))))))(else (Context-Core-holeInit 1)))))) ((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) hinf) 0) ext-0))))))))))))))
(define Check-Elab-TTImp-metaVar (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) (Context-Core-holeInit 1)) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 2))) (vector 1 e-3))))))))))
(define EState-Check-Elab-TTImp-linearUsed (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-11 (vector-ref sc0 11))) e-11))))
(define EState-Check-Elab-TTImp-lhsPatVars (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (let ((e-8 (vector-ref sc0 8))) e-8))))
(define Check-Elab-TTImp-initElabInfo (lambda (arg-0) (vector 0 arg-0 (vector 2 ) 1 0 1 (vector 0 ))))
(define Check-Elab-TTImp-initEStateSub (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (vector 0 arg-1 arg-2 arg-3 arg-4 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) 0 (vector 0 ) (NameMap-Data-empty 'erased) (StringMap-Data-empty 'erased))))
(define Check-Elab-TTImp-initEState (lambda (arg-0 arg-1 arg-2) (Check-Elab-TTImp-initEStateSub 'erased arg-0 arg-1 arg-2 (vector 0 ))))
(define Check-Elab-TTImp-inScope (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-weakenedEState arg-1 arg-2 arg-4 ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((arg-7 e-5) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Check-Elab-TTImp-strengthenedEState arg-1 arg-2 arg-3 e-5 arg-5 arg-6 ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) (let ((act-27 (let ((act-27 (set-box! arg-4 e-7))) (vector 1 act-27)))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (vector 1 e-6))))))))))))))))))))))
(define 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) (Context-Core-holeInit 0)) 0) ext-0))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((sc1 e-5)) (let ((e-3 (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--12761-6683 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-7 (Check-Elab-TTImp-n--12761-6378-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--12761-6683 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12761-6378-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--12761-6683 arg-0 arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Check-Elab-TTImp-n--12761-6378-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--13337-6905 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--13337-7067 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--11232-4998 '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--13862-7394 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--9230-3119-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) (Context-Core-holeInit 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--1458-357 (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--1403-311 (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-maybeToEither (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 e-1))) (else (vector 0 (arg-2)))))))
(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--23303-22362 (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--23827-22269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--23887-22131 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23827-22042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23308-21995 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--23448-21812 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--23448-21721 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--23373-21677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--23308-21617 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--23195-21494 (lambda (arg-0 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--22998-21462 (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--22998-21299-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--23039-21372 (lambda (arg-0 arg-1 arg-2 arg-3 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--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
(define Unify-Core-case--23012-21327 (lambda (arg-0 arg-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--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5) eta-0)))))))))))(else (Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))(else (Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5)))))))(else (Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))(else (Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-6 arg-5))))))
(define Unify-Core-case--22875-21200 (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 (Context-Core-holeInit 1)))) eta-0))) ((9) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 arg-4) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0)))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Unify-Core-case--22495-21038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--22495-20928 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--21351-20839 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--21351-20773 (lambda (arg-0 arg-1 arg-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--21827-20716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--21827-20559 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--21827-20468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--21827-20317 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--21351-20246 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--21827-20317 arg-0 arg-1 arg-2 arg-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--21827-20559 arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--21351-20185 (lambda (arg-0 arg-1 arg-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--21351-20117 (lambda (arg-0 arg-1 arg-2 arg-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--21436-20023 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--21351-19908 (lambda (arg-0 arg-1 arg-2 arg-3 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--21302-19831 (lambda (arg-0 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--21351-20246 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--21351-20839 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--21351-20839 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--21268-19791 (lambda (arg-0 arg-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--21302-19831 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--20682-19665 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20749-19511 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20749-19401 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--20682-19302 (lambda (arg-0 arg-1 arg-2 arg-3 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-2)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-2)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--20749-19401 arg-0 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--20451-19244 (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--20451-19039-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--20682-19302 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Term vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Term vars arg-6788 arg-6790 arg-6791 arg-6793 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--20682-19665 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--20482-19087 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--20459-19064 (lambda (arg-0 arg-1 arg-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--20482-19087 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--20328-18970 (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--20309-18926 (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--20161-18827 (lambda (arg-0 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
(define Unify-Core-case--19878-18589 (lambda (arg-0 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
(define Unify-Core-case--19874-18477 (lambda (arg-0 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) arg-7) arg-6) arg-5) e-5) e-6) eta-0)))))))))))))))))
(define Unify-Core-case--18966-18296 (lambda (arg-0 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--19677-18243 (lambda (arg-0 arg-1 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))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6))))))))
(define Unify-Core-case--18966-18173 (lambda (arg-0 arg-1 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) (Unify-Core-postpone arg-0 arg-1 arg-2 0 arg-9 arg-10 "Postponing in lazy" arg-8 arg-7 arg-4 eta-0))) (else (lambda (eta-0) (let ((act-24 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-10)) arg-9) 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))) (vector 1 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-2 (vector-ref sc2 3))) (vector 0 e-0 e-1 e-2 (vector 1 arg-6))))))))))))))))))
(define Unify-Core-case--19357-17990 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--18962-17889 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--19055-17716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--18962-17615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--12702-17349 (lambda (arg-0 arg-1 arg-2 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--12702-17269 (lambda (arg-0 arg-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--12698-17126 (lambda (arg-0 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--12698-16923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12698-16818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12691-16507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--17441-16211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--12691-16043 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--17441-16211 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12686-15855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12686-15756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12686-15676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16740-15556 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12686-15447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12686-15296-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--12686-15296-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--16740-15556 arg-0 arg-1 arg-2 arg-3 arg-4 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--12686-15295-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--16572-15332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12686-15296-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--12686-15296-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--12686-15296-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--12686-15160 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12686-15061 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12682-14990 (lambda (arg-0 arg-1 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--12682-14916 (lambda (arg-0 arg-1 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--12682-14704 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12682-14609 (lambda (arg-0 arg-1 arg-2 arg-3 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--15232-14277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--15145-14144 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--15232-14277 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--15053-14084 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--15145-14144 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--14984-14012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15145-14144 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--14537-13965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--14984-14012 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14658-13729 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--14598-13681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--14658-13729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14537-13640 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--14598-13681 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12678-13595 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14598-13681 arg-0 arg-1 arg-2 arg-3 arg-4 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--14984-14012 arg-0 arg-1 arg-2 arg-3 arg-4 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--14233-13420 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12673-13334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12669-13234 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13846-13069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12665-13027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12665-13001-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--13292-12586 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--13225-12524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13292-12586 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13142-12475 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13225-12524 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12661-12405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-12 arg-10 arg-9 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--13225-12524 arg-0 arg-1 arg-2 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--12657-12285 (lambda (arg-0 arg-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) ((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-7 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0)))))))))) (lambda () "Unifying head") 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-7 (+ 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 (((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-7 arg-6) arg-5) arg-4) arg-3) e-5) 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-11 (vector-ref sc5 1))) (vector 1 (List-Data-isNil 'erased (let ((sc6 e-11)) (let ((e-0 (vector-ref sc6 1))) e-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--12655-12189 (lambda (arg-0 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--12740-12107 (lambda (arg-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--12651-12062 (lambda (arg-0 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--12598-11881 (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--12356-11740 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12269-11655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12222-11584 (lambda (arg-0 arg-1 arg-2 arg-3 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--12269-11655 arg-0 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--12190-11546 (lambda (arg-0 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--12269-11655 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--10097-11459 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10097-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) (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--10122-11126 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10122-10996 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--10945-10473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10808-10399 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--10097-9691-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--10945-10473 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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 (Prelude-C-124C-124 (Unify-Core-inLam arg-10) (lambda () (Unify-Core-n--10097-9688-precise arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13)))))))) (else (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Unify-Core-n--10097-9691-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--10121-10162 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--10410-10060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--10120-9940 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--10097-9690-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--10120-9860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--10118-9695 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-1 (vector-ref sc0 2))) (let ((sc1 e-1)) (let ((e-2 (vector-ref sc1 2))) e-2))))(else 1)))))
(define Unify-Core-case--9782-9445 (lambda (arg-0 arg-1 arg-2 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--9532-9160-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--9532-9378 (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--9782-9445 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-2 e-7)) eta-0))))))))))))))))))))))
(define Unify-Core-case--9544-9239 (lambda (arg-0 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--9532-9160-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--9532-9160-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--9544-9178 (lambda (arg-0 arg-1 arg-2 arg-3 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--9439-9115 (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--9319-8976-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7 e-3) e-3))))))))))
(define Unify-Core-case--9319-9074 (lambda (arg-0 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--9439-9115 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--9330-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) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((0) (Unify-Core-n--9319-8976-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--9319-8976-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
(define Unify-Core-case--9220-8903 (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--9119-8844 (lambda (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--8990-8690-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-8 e-3) e-3))))))))))
(define Unify-Core-case--8990-8799 (lambda (arg-0 arg-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--9119-8844 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--9001-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)) (case (vector-ref sc0 0) ((0) (Unify-Core-n--8990-8690-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--8990-8690-updateVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-9 arg-10))))))))
(define Unify-Core-case--8927-8643 (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--8876-8627 (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--8927-8643 arg-0 arg-1 arg-2 e-2 e-3 (Unify-Core-n--8876-8593-anyFirst arg-0 arg-1 arg-2 arg-2)))))))
(define Unify-Core-case--8686-8498 (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--8714-8449 (lambda (arg-0 arg-1 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--8686-8435-inArgs arg-0 'erased arg-2 'erased arg-4 arg-5 arg-6 arg-7 arg-10 arg-9))))))
(define Unify-Core-case--8538-8294 (lambda (arg-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--8006-8203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--8023-7907 (lambda (arg-0 arg-1 arg-2 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--8022-7811 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--7886-7711 (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--7869-7669 (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--7810-7619 (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--7397-7129 (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--7388-7118 (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--9319-8976-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--9330-9001 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--8990-8690-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--9001-8715 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--10121-10258-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--10097-9691-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--10121-10259-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--10121-10258-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--10097-9691-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--10097-9691-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--10097-9691-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--10121-10258-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--10808-10399 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--10121-10258-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9690-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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (eta-0) (Unify-Core-n--10097-9691-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--10121-10259-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9691-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--10097-9690-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--10097-9690-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--10120-9940 arg-0 arg-1 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--8006-7790-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--12673-13300-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--12686-15295-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--10097-9688-precise (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (Unify-Core-case--10118-9695 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 (let ((sc0 arg-5)) (let ((e-17 (vector-ref sc0 18))) e-17)))))
(define Unify-Core-n--10097-9692-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--10097-9692-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--10097-9692-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--10122-10996 arg-0 arg-1 arg-2 arg-3 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--10122-11126 arg-0 arg-1 arg-2 arg-3 arg-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--10097-9691-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--10122-11126 arg-0 arg-1 arg-2 arg-3 arg-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--10097-9691-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--10097-9692-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--10122-10996 arg-0 arg-1 arg-2 arg-3 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--10122-11126 arg-0 arg-1 arg-2 arg-3 arg-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--10097-9691-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--10122-11126 arg-0 arg-1 arg-2 arg-3 arg-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--10097-9691-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--10097-9692-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--10122-10996 arg-0 arg-1 arg-2 arg-3 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--10122-11126 arg-0 arg-1 arg-2 arg-3 arg-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--10097-9691-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--10122-11126 arg-0 arg-1 arg-2 arg-3 arg-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--10097-9691-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--12686-15296-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--12686-15296-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--12686-15296-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--12686-15296-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--10097-9689-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--10097-9689-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--12665-13001-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--12698-17213-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--8686-8435-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--8714-8449 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--9532-9160-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--9544-9178 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--9544-9239 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--20451-19039-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--20482-19087 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--22870-21168-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 (Context-Core-holeInit 1)))) eta-0)) ((9) (Context-Core-updateDef arg-1 (vector 9 e-2) (lambda (eta-1) (vector 1 (vector 7 0 (Context-Core-holeInit 1)))) eta-0))(else (vector 1 (vector 0 )))))))(else (vector 1 (vector 0 ))))))))))))))))))))))
(define Unify-Core-n--8006-7789-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--23303-21555-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-2) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-2)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-2) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--22998-21299-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--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))(else ((Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))(else ((Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0)))))))(else ((Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))(else ((Unify-Core-n--22998-21299-anySame arg-0 arg-1 arg-2 arg-3 arg-4 e-3) eta-0))))))))))))))))))))))
(define Unify-Core-n--8876-8593-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--8876-8593-anyFirst arg-0 arg-1 arg-2 e-3)))))))))))
(define Unify-Core-n--22822-21125-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-5 (vector-ref sc0 1))) (let ((e-6 (vector-ref sc0 2))) (let ((e-7 (vector-ref sc0 3))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((5) (let ((e-11 (vector-ref sc1 3))) ((((((Unify-Core-unify 'erased (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) arg-0 arg-1 arg-2) (Unify-Core-lower arg-3)) arg-4) arg-5) e-7) e-11)))(else (let ((x (vector 5 e-5 e-6 e-7))) (Unify-Core-case--18966-18173 arg-0 arg-1 arg-2 e-5 arg-7 e-7 e-6 x arg-5 arg-4 arg-3 (Prelude-C-38C-38 (Unify-Core-isHoleApp 'erased arg-7) (lambda () (Prelude-not (Unify-Core-C-61C-61_Eq__UnifyMode (let ((sc1 arg-3)) (let ((e-2 (vector-ref sc1 3))) e-2)) (vector 2 ))))))))))))))(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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--18962-17615 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--18962-17889 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--18962-17889 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-3275) (Unify-Core-weaken_Weaken__C-40IVarsC-32C-36vsC-41 'erased n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (Unify-Core-weakenNs_Weaken__C-40IVarsC-32C-36vsC-41 'erased vars ns arg-3279)))))))
(define Unify-Core-__Impl_Unify_Term (lambda () (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0)))))))))))))
(define Unify-Core-__Impl_Unify_NF (lambda () (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348))))))))))))
(define Unify-Core-__Impl_Unify_Closure (lambda () (vector 0 (lambda (vars) (lambda (arg-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0)))))))))))))
(define Unify-Core-__Impl_Eq_UnifyMode (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Unify-Core-C-61C-61_Eq__UnifyMode arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Unify-Core-C-47C-61_Eq__UnifyMode arg-438 arg-439))))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (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--12698-16818 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--12698-17126 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--12698-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12698-17213-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--12698-16923 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--12698-17126 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--12698-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12698-17213-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--12698-17126 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--12698-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12698-17213-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-0) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-0)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-0) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-0))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-0) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-0)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-0) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12698-17126 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--12698-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12698-17213-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Closure vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Closure vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 eta-1))))))))))) (vector 0 (lambda (vars) (lambda (arg-6783) (lambda (arg-6784) (lambda (arg-6786) (lambda (eta-1) (Normalise-Core-quote_Quote__Closure vars arg-6783 arg-6784 arg-6786 eta-1)))))) (lambda (vars) (lambda (arg-6788) (lambda (arg-6790) (lambda (arg-6791) (lambda (arg-6793) (lambda (eta-1) (Normalise-Core-quoteGen_Quote__Closure vars arg-6788 arg-6790 arg-6791 arg-6793 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--12698-17126 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--12698-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12698-17213-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--12698-17126 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--12698-17213-isDelay arg-2 arg-7 arg-6 arg-5 arg-4 arg-3 arg-1 arg-0 arg-6) (lambda () (Unify-Core-n--12698-17213-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-1 arg-4 arg-5 arg-6 e-7 e-8) ext-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc5 1))) (let ((_-0 (vector 1 e-1))) (let ((sc6 e-9)) (cond ((equal? sc6 0) (let ((bind-0 0)) ((Unify-Core-case--13225-12524 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--12665-13001-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--14598-13681 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--14984-14012 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--12691-16043 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--12691-16507 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--12686-15061 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--12686-15160 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15160 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15160 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15160 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15676 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--12686-15756 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--12686-15855 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--12686-15447 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--12686-15676 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--12686-15756 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--12686-15855 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--12682-14609 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--12682-14704 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--12682-14609 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--12682-14704 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--8876-8627 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-0) (lambda () (Semiring-Algebra-isRigOther 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--12269-11655 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--12673-13334 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--12673-13300-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--22822-21125-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--21302-19831 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--20451-19244 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--8006-7789-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--8006-7789-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--8006-7790-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--9319-9074 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--8990-8799 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--9532-9378 arg-0 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 e-5 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--10097-11364 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--10097-9692-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--10097-9689-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 ))))
(define Unify-Core-inMatch (lambda () (vector 0 0 0 (vector 2 ))))
(define Unify-Core-inLam (lambda (ext-0) (let ((sc0 ext-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(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 arg-5 arg-6 arg-7) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 arg-7)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 1))) (Unify-Core-case--12657-12285 arg-0 e-1 e-3 arg-5 arg-4 arg-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--22870-21168-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--9220-8903 'erased 'erased e-8 'erased e-7 e-6 e-3 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) 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--8686-8498 arg-0 'erased e-16 'erased e-15 e-5 e-3 arg-1 (Unify-Core-n--8686-8435-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 ))))))))
(define Unify-Core-getArgTypes (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 ((e-5 (vector-ref sc0 4))) (let ((sc1 e-4)) (case (vector-ref sc1 0) ((2) (let ((e-9 (vector-ref sc1 3))) (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((1) (let ((e-11 (vector-ref sc2 1))) (let ((e-12 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (let ((act-24 (((e-5 arg-1) e-11) 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))) ((Unify-Core-getArgTypes 'erased arg-1 e-6 e-12) 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 ((sc4 e-6)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (vector 1 (vector 1 (vector 1 e-9 e-1))))) (else (vector 1 (vector 0 ))))))))))))))(else (let ((sc2 arg-3)) (case (vector-ref sc2 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (let ((sc1 arg-3)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))))))(else (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (lambda (eta-0) (vector 1 (vector 1 (vector 0 )))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
(define Unify-Core-forceMeta (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 8 (TT-Core-getLoc 'erased arg-3) arg-1 arg-3))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 3 e-2 e-3 e-4 (Unify-Core-forceMeta 'erased arg-1 e-0 e-5)))))))(else (vector 8 (TT-Core-getLoc 'erased arg-3) arg-1 arg-3))))))))))
(define Unify-Core-delayMeta (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (vector 7 (TT-Core-getLoc 'erased arg-4) arg-1 arg-3 arg-4))(else (let ((e-0 (- arg-2 1))) (let ((sc0 arg-4)) (case (vector-ref sc0 0) ((3) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((e-4 (vector-ref sc0 3))) (let ((e-5 (vector-ref sc0 4))) (vector 3 e-2 e-3 e-4 (Unify-Core-delayMeta (vector 1 e-3 arg-0) arg-1 e-0 (TT-Core-weaken_Weaken__Term e-3 arg-0 arg-3) e-5)))))))(else (vector 7 (TT-Core-getLoc 'erased arg-4) arg-1 arg-3 arg-4))))))))))
(define Unify-Core-convertErrorS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-2 arg-4 arg-5 arg-7 arg-6 eta-0))) (else (lambda (eta-0) (Unify-Core-convertError 'erased arg-1 arg-2 arg-4 arg-5 arg-6 arg-7 eta-0)))))))
(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--23303-21555-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--22998-21299-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--7869-7669 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--5793-3714 (lambda (arg-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--5793-3569 (lambda (arg-0 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--5793-3456 (lambda (arg-0 arg-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--5793-3394 (lambda (arg-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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) 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--9536-3571 (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--9526-3548 (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--9466-3494 (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--9341-3433 (lambda (arg-0 arg-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--8852-2976 (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--8706-2763 (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--8641-2716 (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--8612-2677 (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--8578-2647 (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--8491-2583 (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--8404-2506 (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--8252-2414 (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--8252-2343-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--8252-2343-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--8252-2343-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--8852-2900-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--9038-3082-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--9038-3081-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--9038-3083-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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 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--9038-3081-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--9038-3082-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--9038-3082-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--9038-3083-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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__FC arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__FC arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Nat arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__FC arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__FC arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Nat arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Nat arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__C-40TermC-32C-36varsC-41 (vector 0 ) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-0) (Metadata-Core-toBuf_TTC__TTMFile arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Metadata-Core-fromBuf_TTC__TTMFile arg-2124 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))))
(define Metadata-Metadata-Core-tydecls (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define Metadata-Core-substEnv (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-9 (vector-ref sc1 2))) (Metadata-Core-substEnv e-3 arg-1 e-9 (SubstEnv-TT-Core-subst e-3 e-2 (vector 1 arg-1 (vector 0 ) e-2) arg-3)))))))))))
(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--8852-2900-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))))
(define Metadata-Core-initMetadata (lambda () (vector 0 (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ) (vector 0 ))))
(define Metadata-Metadata-Core-holeLHS (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-4 (vector-ref sc0 5))) e-4))))
(define Metadata-Core-findTypeAt (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (Builtin-snd 'erased 'erased eta-0)) (Metadata-Core-findEntryWith 'erased arg-1 (let ((sc1 e-5)) (let ((e-1 (vector-ref sc1 2))) e-1))))))))))))
(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--8706-2763 '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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) (Env-Core-bindEnv arg-0 arg-3 (Metadata-Core-n--8252-2343-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--9801-6886 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--9721-6713 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-6 e-7))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9668-6644 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-11 e-10))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9463-6426 (lambda (arg-0 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--9237-6208 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9214-6183 (lambda (arg-0 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--9237-6208 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--9167-6140 (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--9237-6208 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-13 e-12))) (let ((rbind (vector 1 (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10441-7447 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (let ((e-3 (vector-ref sc0 2))) (lambda (eta-0) (vector 1 e-3))))))
(define Record-Elab-TTImp-case--10179-7378 (lambda (arg-0 arg-1 arg-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--10179-7251 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--10179-7165 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9998-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) ((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--9998-6992-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--9742-6787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9693-6752 (lambda (arg-0 arg-1 arg-2 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--9742-6787 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-0 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-3 arg-2))))))))
(define Record-Elab-TTImp-case--9429-6711 (lambda (arg-0 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--9742-6787 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9523-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) (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--9429-6510-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--9429-6561 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9429-6510-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--9367-6430 (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--9315-6400 (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--9179-6328 (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--9179-6236-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--9182-6264 (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--9127-6195 (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--9998-6992-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--9429-6510-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--9429-6510-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--9179-6236-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--9179-6236-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--9367-6430 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--9998-7013 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--9429-6711 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9429-6510-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--9429-6711 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9429-6711 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9179-6236-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--10179-7165 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--11121-12624 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11060-12564 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--10342-12423-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--10334-12297-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--10334-12297-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--10342-12423-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)))))))
(define Quote-Elab-TTImp-checkQuoteName (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 ((Reflect-Core-reflect_Reflect__Name arg-0 arg-9 e-5 (Quote-Elab-TTImp-onLHS (let ((sc1 arg-6)) (let ((e-0 (vector-ref sc1 1))) e-0))) arg-8 arg-10) ext-0))) (let ((sc1 act-25)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc1 1))) (let ((act-26 (Reflect-Core-getCon arg-0 arg-9 e-5 (Reflect-Core-reflectiontt "Name") ext-0))) (let ((sc2 act-26)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc2 1))) ((Check-Elab-TTImp-checkExp arg-0 arg-1 arg-3 arg-4 arg-5 arg-6 arg-8 arg-9 e-6 (Normalise-Core-gnf arg-0 arg-8 e-7) arg-11) ext-0))))))))))))))))))
(define Quote-Elab-TTImp-checkQuoteDecl (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 ext-0) (let ((act-24 (let ((act-24 (unbox arg-1))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (let ((act-25 (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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Quote-Elab-TTImp-getUnquoteDecl arg-1 e-6 arg-3 eta-0)) 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-Core-reflect_Reflect__C-40ListC-32C-36aC-41 'erased (lambda (eta-0) (lambda (eta-1) (lambda (eta-2) (lambda (eta-3) (lambda (eta-4) (lambda (eta-5) (Reflect-TTImp-reflect_Reflect__ImpDecl eta-0 eta-1 eta-2 eta-3 eta-4 eta-5))))))) 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 "Decl") ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (let ((act-30 (Reflect-Core-appCon arg-0 arg-9 e-5 (Reflect-Core-prelude "List") (vector 1 e-10 (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 ((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 ((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-11) arg-11) ext-0)))))))))))))))))))))))))))))))))))))))))))
(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--10502-7436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10237-7346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10237-7154 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10202-7116 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--10237-7154 arg-0 arg-1 arg-2 arg-3 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--10088-7028 (lambda (arg-0 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--10059-6990 (lambda (arg-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--9074-6916 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9074-6860 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--9074-6792 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--9074-6603 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9074-6145-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--9074-6526 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9095-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) (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--9094-6334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9093-6170 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (Local-Elab-TTImp-n--9074-6139-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--9074-6139-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--9074-6142-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--9074-6141-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--9074-6144-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--9074-6142-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--9074-6141-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--9074-6143-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--9074-6143-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--9074-6141-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--9074-6142-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--9074-6141-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--9074-6145-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--9074-6145-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--9074-6145-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--9074-6141-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--9095-6382 arg-0 arg-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-14 arg-13))))
(define Local-Elab-TTImp-n--9074-6139-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--9093-6170 arg-0 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-4))))))))))
(define Local-Elab-TTImp-n--9074-6140-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--10059-6990 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--9074-6603 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--9074-6140-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--9074-6139-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--9074-6144-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--10237-7154 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--7285-12507 (lambda (arg-0 arg-1 arg-2 arg-3 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--7285-12446 (lambda (arg-0 arg-1 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--7225-12352 (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--7140-12316 (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--7118-12268 (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--7100-12249 (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--6869-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) (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--6869-12063 (lambda (arg-0 arg-1 arg-2 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--6828-12032 (lambda (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--6869-12130 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-2))))))))))))))))
(define Utils-Elab-TTImp-case--6649-11927 (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--6649-11840-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--6662-11872 (lambda (arg-0 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--6649-11840-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--7492-12587-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--7492-12587-notLets arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-6 e-3 e-8))(else (Utils-Elab-TTImp-n--7492-12587-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--6649-11840-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--6649-11840-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--6662-11872 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-6 arg-7)))))))(else (Utils-Elab-TTImp-case--6662-11872 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-6 arg-7)))))))))))))))
(define Utils-Elab-TTImp-wrapErrorC (lambda (arg-0 arg-1 arg-2) (Utils-Elab-TTImp-case--7225-12352 'erased arg-2 arg-1 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--6869-12130 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--6649-11840-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--7492-12587-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--7285-12446 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--7285-12507 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--9255-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) (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--9206-12271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--8972-12083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--8839-12022 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--8839-11935 (lambda (arg-0 arg-1 arg-2 arg-3 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--8750-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) (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--8839-11914-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--8839-11935 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--8839-11914-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--13677-11712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13751-11654 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--13751-11545 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--13751-11443 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--13751-11369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 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--13751-11260 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--13677-11027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--13751-11545 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13751-11443 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13182-10768 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--13182-10655 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13115-10504 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--13182-10655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--13037-10453 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--13182-10655 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12674-10088-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--12674-10381 (lambda (arg-0 arg-1 arg-2 arg-3 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--13037-10453 arg-0 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--12674-10316 (lambda (arg-0 arg-1 arg-2 arg-3 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--11832-10031 (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--11832-9984 (lambda (arg-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--11854-9745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11832-9327-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--12052-9563 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--11832-9326-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--11832-9325-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--11832-9326-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--11853-9512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12052-9563 arg-0 arg-1 arg-2 arg-3 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-6 arg-12))))) eta-0))))))))))))(else (ImplicitBind-Elab-TTImp-n--11832-9326-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--11832-9326-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--11853-9393 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11832-9326-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--11832-9326-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--11832-9325-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--11769-9270 (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--11194-9114 (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--11194-8785-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--11211-9037 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--11271-8887 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--11211-8836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--11009-8638 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--10713-8386 (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--10582-8314 (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--10173-7954 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--9860-7867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9841-7584-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--9878-7757 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9859-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 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--9527-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 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--9527-7352-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--9527-7314 (lambda (arg-0 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--9314-7115 (lambda (arg-0 arg-1 arg-2 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--11194-8785-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--11194-8785-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--11194-8785-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--11194-8785-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--10485-8191-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--11832-9326-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--11853-9393 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--11853-9512 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--11832-9325-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--11696-9198-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--9841-7585-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--9841-7584-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--9527-7352-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--9527-7352-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--9841-7584-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--9859-7605 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--11129-8729-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--11129-8729-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--11129-8729-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--11129-8729-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--11129-8729-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--12674-10087-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-12) (lambda () (Semiring-Algebra-isLinear 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-13))) (lambda () (Preorder-Algebra-C-60 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-12 arg-13))))))
(define ImplicitBind-Elab-TTImp-n--11832-9327-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n arg-10)) (NameMap-Data-keys 'erased (Check-Elab-TTImp-bindingMetas 'erased e-10))))) (ImplicitBind-Elab-TTImp-case--11854-9745 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 used)))))))))))))))))
(define ImplicitBind-Elab-TTImp-n--11194-8786-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--11211-8836 '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--11194-8786-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--11211-9037 '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--11194-8786-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--11832-9328-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--11832-9327-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--11832-9328-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--12674-10088-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--12674-10087-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--9527-7353-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--9527-7353-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--10713-8386 '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--10485-8191-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--10582-8314 '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--11009-8638 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--9527-7464 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--9527-7353-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--9314-7115 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11129-8729-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--11832-9326-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--11832-9328-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--12674-10381 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--12674-10316 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--13751-11545 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--13751-11443 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--9841-7585-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--11696-9198-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--11194-8785-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--11194-8786-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--8964-12252 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (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--8659-12203 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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 (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--8701-12002 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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 (let ((act-24 ((Normalise-Core-getNF 'erased arg-11 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))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 e-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 ((act-25 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 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 ((act-26 (Context-Core-addUserHole arg-11 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 (let ((act-27 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 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-3 arg-1))))))))))))))))))))))))
(define Hole-Elab-TTImp-case--8659-11953 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 (let ((act-26 ((Normalise-Core-getNF 'erased arg-11 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))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-11 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 (Metadata-Core-withCurrentLHS arg-11 arg-10 (vector 9 e-2) eta-0))) (let ((sc5 act-27)) (case (vector-ref sc5 0) ((0) (let ((e-4 (vector-ref sc5 1))) (vector 0 e-4))) (else (let ((act-28 (Context-Core-addUserHole arg-11 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 (let ((act-29 (Check-Elab-TTImp-saveHole 'erased arg-8 arg-12 eta-0))) (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-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-case--8577-11872 (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))) (vector 0 e-0 0)))))
(define Hole-Elab-TTImp-case--8554-11849 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (let ((sc0 arg-7)) (case (vector-ref sc0 0) ((7) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (vector 1 (vector 7 e-0 (let ((sc1 e-1)) (let ((e-3 (vector-ref sc1 1))) (vector 0 e-3 0))))))))(else (vector 0 ))))))
(define Hole-Elab-TTImp-mkPrecise (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 2))) (let ((sc1 e-2)) (case (vector-ref sc1 0) ((2) (let ((e-6 (vector-ref sc1 2))) (lambda (eta-0) (Context-Core-updateDef arg-1 (vector 9 e-6) (lambda (lcase-0) (let ((sc2 lcase-0)) (case (vector-ref sc2 0) ((7) (let ((e-0 (vector-ref sc2 1))) (let ((e-4 (vector-ref sc2 2))) (vector 1 (vector 7 e-0 (let ((sc3 e-4)) (let ((e-9 (vector-ref sc3 1))) (vector 0 e-9 0))))))))(else (vector 0 ))))) eta-0))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))(else (lambda (eta-0) (vector 1 (vector 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 (let ((act-29 ((Normalise-Core-getNF 'erased arg-1 e-1) 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-10 (vector-ref sc8 1))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-10) 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 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 e-2) 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 (Context-Core-addUserHole arg-1 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 (let ((act-32 (Check-Elab-TTImp-saveHole 'erased arg-4 e-5 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 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (let ((act-28 ((Normalise-Core-nf arg-0 e-8 envC-39 e-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))) ((Hole-Elab-TTImp-mkPrecise 'erased arg-1 e-9) 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-lookupCtxtExact e-7 (let ((sc5 e-8)) (let ((e-0 (vector-ref sc5 1))) e-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 (let ((e-10 (vector-ref sc5 1))) (let ((sc6 e-10)) (case (vector-ref sc6 0) ((0) (let ((act-30 (Check-Elab-TTImp-metaVarI arg-0 arg-1 arg-3 arg-9 arg-5 envC-39 e-7 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 ((sc8 e-11)) (let ((e-2 (vector-ref sc8 1))) (let ((e-3 (vector-ref sc8 2))) (let ((act-31 (Metadata-Core-withCurrentLHS arg-1 arg-2 (vector 9 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 (let ((act-32 (Context-Core-addUserHole arg-1 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 (Check-Elab-TTImp-saveHole 'erased arg-4 e-7 eta-0))) (let ((sc11 act-33)) (case (vector-ref sc11 0) ((0) (let ((e-4 (vector-ref sc11 1))) (vector 0 e-4))) (else (vector 1 (vector 0 e-3 (Normalise-Core-gnf arg-0 arg-8 e-6))))))))))))))))))))))))(else (let ((act-30 (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 ((sc6 act-30)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 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--9351-7236 (lambda (arg-0 arg-1 arg-2 arg-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--9351-7166 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9313-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) (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--9313-7112 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--14032-10924 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--14032-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) (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--13240-9940-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--14032-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) (let ((sc0 arg-19)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define Case-Elab-TTImp-case--13240-10613 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--14032-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 e-2 e-3 _-0 e-5 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--13240-9940-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--13240-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) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((31) (Case-Elab-TTImp-n--13240-9943-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--13607-10321 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--13240-9941-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--13240-9943-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--13240-9943-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--13534-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) (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--13240-9942-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--13240-9941-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13265-10192 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--13240-9942-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--13240-9941-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13240-9943-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--13264-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 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--10896-9805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-21 e-5 (vector 11 arg-9) eta-0))))))))))))
(define Case-Elab-TTImp-case--12280-9706 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12280-9594 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12280-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 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define Case-Elab-TTImp-case--10896-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) (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--12280-9438 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--10896-7985-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--11988-8917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--10896-8862 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--11988-8917 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--10926-8749 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--10896-7981-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--10896-7984-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--10926-8681 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--10896-7981-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--10896-7984-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--10926-8609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10896-7981-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--10896-7984-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--10921-8402 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10920-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 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--10919-8206 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10919-8110 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10793-7902 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--10640-7784 (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--10599-7739 (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--10181-7320 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) arg-2)) (else (vector 1 arg-3 arg-2))))))
(define Case-Elab-TTImp-n--10896-7982-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--10896-7982-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--10896-7982-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--10896-7982-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Case-Elab-TTImp-n--10896-7982-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--10896-7985-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--10926-8609 arg-0 arg-1 arg-2 arg-3 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--10896-7979-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--10896-7982-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--10926-8681 arg-0 arg-1 arg-2 arg-3 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--10896-7979-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--10896-7982-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--10926-8749 arg-0 arg-1 arg-2 arg-3 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--10896-7979-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--10896-7982-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--10896-7980-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--10896-7980-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--10599-7714-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--10896-7983-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--10896-7981-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--10896-7980-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--13240-9943-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--13265-10192 arg-0 arg-1 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--13240-9943-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--13240-9942-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--13240-9942-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--10765-7868-getNameFrom (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Case-Elab-TTImp-case--10793-7902 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 'erased arg-8 'erased (Case-Elab-TTImp-n--10765-7867-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--10896-7978-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--10919-8110 arg-0 arg-1 arg-2 arg-3 arg-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n arg-18)))))(else (Case-Elab-TTImp-case--10919-8206 arg-0 arg-1 arg-2 arg-3 arg-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-17 arg-18)))))))
(define Case-Elab-TTImp-n--10765-7867-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--10765-7867-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--10765-7867-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--13240-9940-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--13240-9941-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--13240-9941-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--13240-9941-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--10896-7984-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--10896-7983-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--10896-7979-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--10896-7978-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--10920-8328 arg-0 arg-1 arg-2 arg-3 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--10896-7979-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--10181-7320 'erased 'erased e-5 e-4 idx 'erased (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10599-7739 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--10599-7714-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--13240-9943-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--14032-10667 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--13240-9940-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--11988-8917 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--12280-9438 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--10896-7985-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--10765-7868-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--10567-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) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10567-13647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10683-13566 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--10567-13473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10397-13367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10567-13688 arg-0 arg-1 arg-2 arg-3 arg-4 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--10397-13233-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--10397-13278 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-case--9998-13010 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--9906-12881 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) 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--9560-12814 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) 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--9560-12708 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9560-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 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-case--9560-12544 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-case--9295-12378 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--9246-12288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9181-12211 (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--8992-12128 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--8945-12038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--8845-11964 (lambda (arg-0 arg-1 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--8750-11904 (lambda (arg-0 arg-1 arg-2) (Binders-Elab-TTImp-n--8750-11833-drop 'erased arg-1 arg-2 'erased arg-1)))
(define Binders-Elab-TTImp-case--8756-11856 (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--8750-11833-drop 'erased arg-1 arg-2 'erased arg-6)) (else (vector 1 (vector 0 arg-4 arg-5) (Binders-Elab-TTImp-n--8750-11833-drop 'erased arg-1 arg-2 'erased arg-6)))))))
(define Binders-Elab-TTImp-n--10397-13233-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--10397-13233-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--10397-13233-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--10397-13233-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--10397-13233-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--8945-12012-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Binders-Elab-TTImp-n--8750-11833-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--8756-11856 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--8750-11833-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--8945-12012-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--10397-13278 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10567-13688 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--10397-13233-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--9560-12544 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--9560-12633 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-5)))) (let ((solvemode (Binders-Elab-TTImp-case--9560-12708 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) 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--10218-7820 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--9626-7098-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--9626-7098-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--10218-7730 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--10140-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 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--9626-7098-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--9626-7098-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--9626-7098-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--10066-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 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--9626-7098-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--9626-7098-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--9626-7098-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--9991-7454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9626-7096-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--9626-7098-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--9626-7098-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--9626-7098-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--9626-7389 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9991-7454 arg-0 arg-1 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--9650-7324 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-case--9650-7253 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-case--9648-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 arg-13 arg-14) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-case--9648-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) (let ((sc0 arg-14)) (cond ((equal? sc0 0) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else arg-9)))))
(define As-Elab-TTImp-n--9626-7095-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--9648-7110 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))) (else (As-Elab-TTImp-case--9648-7181 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9)))))))
(define As-Elab-TTImp-n--9626-7096-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--9626-7095-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--9626-7097-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--9650-7253 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9))) (else (As-Elab-TTImp-case--9650-7324 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-9)))))))
(define As-Elab-TTImp-n--9626-7098-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--9626-7097-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--9991-7454 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--16281-13555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16979-13364 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--16281-13193 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--16281-12649-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--16979-13364 arg-0 arg-1 arg-2 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--16281-12648-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--16769-13081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--16337-13024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16449-12794 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--16384-12744 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16449-12794 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--16281-12647-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--16336-12698 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--16384-12744 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--15903-12426 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--10368-12283 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--15903-12426 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--10368-12108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--10368-11932 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15340-11793 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--10368-11772-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--10368-11649 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--15016-11512 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--10368-11491-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--10368-11369 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--14676-11232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--10368-11194-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--14343-10979 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--10368-10911 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10368-10756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13844-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 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--10368-10473 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13844-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13844-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13844-10582 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--12053-10257 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--12467-9898 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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 (Context-Core-holeInit 1)))) eta-0))) (let ((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--12662-9578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12467-9463 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12662-9578 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12307-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 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--12467-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12467-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12160-9172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12467-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12467-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--12053-9049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 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--12467-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--12467-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--10362-8962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--12467-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--12467-9898 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--10362-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 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--11744-8729 (lambda (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--10360-8529-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
(define App-Elab-TTImp-case--11706-8707 (lambda (arg-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--11744-8729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) 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--10360-8529-dotTerm arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-1))))))))
(define App-Elab-TTImp-case--10360-8672 (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--11744-8729 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-5 e-1 _-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-3 (let ((sc4 e-1)) (let ((e-4 (vector-ref sc4 5))) e-4)))) eta-0)))) (else (vector 1 (App-Elab-TTImp-n--10360-8529-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--11554-8533 (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--11339-8392 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--11290-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) (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--10357-8312 (lambda (arg-0 arg-1 arg-2 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--11290-8348 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--10350-8093 (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--10344-7850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--10338-7589 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--9904-7042 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9765-6969 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9904-7042 arg-0 arg-1 arg-2 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--9675-6776-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--9765-6880 (lambda (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--9675-6847 (lambda (arg-0 arg-1 arg-2 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--9904-7042 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--9675-6776-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--9372-6532 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9169-6486 (lambda (arg-0 arg-1 arg-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--9111-6254-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--9372-6532 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--9169-6405 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9111-6297 (lambda (arg-0 arg-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--9111-6254-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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--9111-6253-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--9111-6254-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--9372-6532 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--8996-6172 (lambda (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--8982-6139 (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--8996-6172 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--9675-6776-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--9675-6776-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--9675-6776-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--9675-6776-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--9675-6776-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--10368-11772-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--15340-11793 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--10368-11772-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--10368-11772-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--10368-11491-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--15016-11512 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10368-11491-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--10368-11491-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--10368-11194-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--14676-11232 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10368-11194-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--10368-11194-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--16281-12649-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--16337-13024 arg-0 arg-1 arg-2 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--16281-12646-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--9111-6254-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--10368-12072-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--10368-12072-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--16281-12648-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--16336-12698 arg-0 arg-1 arg-2 arg-3 arg-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--16281-12646-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--10344-7840-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--10338-7579-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--16281-12646-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--16281-12646-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--9111-6253-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--10360-8529-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--16281-12647-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))) ((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--10344-7850 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--10344-7840-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--10338-7589 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--10338-7579-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--9675-6847 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--9111-6297 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--10360-8672 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-0)) (lambda () (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8996-6172 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--10362-8962 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--11290-8348 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--10368-12108 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--10368-12072-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15903-12426 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--13844-10582 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--13844-10582 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--13844-10582 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--10368-11649 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--10368-11491-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--10368-11649 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--10368-11491-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--10368-11649 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--10368-11491-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--10368-11369 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--10368-11194-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--10368-11369 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--10368-11194-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--10368-11369 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--10368-11194-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--10368-11932 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--10368-11772-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--10368-11932 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--10368-11772-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--10368-11932 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--10368-11772-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--10368-12108 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--10368-12072-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15903-12426 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--10368-12108 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--10368-12072-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15903-12426 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--10368-12108 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--10368-12072-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15903-12426 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--10368-12108 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--10368-12072-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15903-12426 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--10368-12108 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--10368-12072-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15903-12426 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--16281-12649-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--16979-13364 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--16281-12648-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--13083-6661 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13083-6549 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (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--13083-6454 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12530-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) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--13083-6454 arg-0 arg-1 arg-2 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--13083-6454 arg-0 arg-1 arg-2 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--12530-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 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--12530-5993 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12530-5895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--12468-5844 (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--12152-5686 (lambda (arg-0 arg-1 arg-2 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--12152-5584 (lambda (arg-0 arg-1 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--12079-5457 (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--12028-5388 (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--11757-5301 (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--11757-5235 (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--11757-5149 (lambda (arg-0 arg-1 arg-2 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--11678-5071 (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--11065-4952 (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--11413-4856 (lambda (arg-0 arg-1 arg-2 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--11065-4823 (lambda (arg-0 arg-1 arg-2 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--11261-4727 (lambda (arg-0 arg-1 arg-2 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--11065-4694 (lambda (arg-0 arg-1 arg-2 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--11062-4616 (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--11059-4562 (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--10659-4277 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9319-3079-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--9319-3074-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--9319-3079-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--9319-3074-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--9319-3079-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--10462-4167 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9319-3079-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--9319-3073-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--9319-3079-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--9319-3074-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--9319-3079-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--9319-3074-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--9319-3079-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--10462-4020 (lambda (arg-0 arg-1 arg-2 arg-3 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--10374-3987 (lambda (arg-0 arg-1 arg-2 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--10462-4020 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--9319-3080-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--9319-3076-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--10462-4167 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--9319-3072-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--9319-3908 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--10374-3987 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--10176-3776 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9430-3739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9429-3631 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9429-3542 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9514-3195 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9462-3145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9514-3195 arg-0 arg-1 arg-2 arg-3 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--9425-3108 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9514-3195 arg-0 arg-1 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--9319-3014 (lambda (arg-0 arg-1 arg-2 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--9319-3077-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--9429-3542 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--9429-3631 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--9429-3631 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--9319-3073-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--9425-3108 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--9319-3074-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--12012-5375-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--9319-3080-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--9319-3078-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--9319-3077-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--9319-3075-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--9430-3739 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 6 ) (let ((sc0 arg-14)) (let ((e-11 (vector-ref sc0 12))) e-11)))))))
(define Ambiguity-Elab-TTImp-n--9319-3079-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--9319-3078-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--9319-3072-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--9319-3076-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--9319-3076-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--9319-3075-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--9319-3075-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--9319-3075-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--12152-5584 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--12152-5686 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--12012-5375-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--11065-4694 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--11065-4823 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--11065-4952 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--11065-4694 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--11065-4823 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--11065-4952 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--9319-3014 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--9319-3908 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--9319-3908 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--12530-5895 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--13083-6454 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--13083-6454 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--15320-13677 (lambda (arg-0 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--15026-13535 (lambda (arg-0 arg-1 arg-2 arg-3 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--15026-13442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--14622-13221 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--14622-13098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--8345-13027 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--14622-13098 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--14188-12691 (lambda (arg-0 arg-1 arg-2 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--8337-12353-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--14150-12636 (lambda (arg-0 arg-1 arg-2 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--14188-12691 '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--14114-12607 (lambda (arg-0 arg-1 arg-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--8337-12354-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--14150-12636 '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--8337-12578 (lambda (arg-0 arg-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--8337-12354-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--14150-12636 '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--13867-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) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (Semiring-Algebra-erased 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((4) arg-12) ((3) arg-12) (else arg-12)))))
(define LinearCheck-Core-case--8337-12308 (lambda (arg-0 arg-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--12207-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) (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--8332-10858-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--8332-10855-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--12206-11782 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12206-11668 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12205-11527 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--8332-10857-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-13 arg-12))))))
(define LinearCheck-Core-case--12557-11267 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--12458-11148 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--12557-11267 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--12397-11069 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--8332-10855-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--12458-11148 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--12203-10903-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--12203-11026 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--8332-10855-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--12458-11148 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--12203-10903-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--12203-10903-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--12257-10922 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--8320-10647 (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--11825-10579 (lambda (arg-0 arg-1 arg-2 arg-3 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--8320-10537 (lambda (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--8320-10477 (lambda (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--8320-10416 (lambda (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--11548-10348 (lambda (arg-0 arg-1 arg-2 arg-3 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--8320-10306 (lambda (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--8320-10246 (lambda (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--11250-10090 (lambda (arg-0 arg-1 arg-2 arg-3 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--8316-10053 (lambda (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--11110-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) (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--8316-9938 (lambda (arg-0 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--8316-9880 (lambda (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--10906-9817 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--8316-9773 (lambda (arg-0 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--10302-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 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--10371-9367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--10302-9298 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--10371-9367 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--10246-9244 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--10371-9367 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8316-9198 (lambda (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--10371-9367 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8316-9124 (lambda (arg-0 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--8316-8267-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased arg-10 eta-0)))))))
(define LinearCheck-Core-case--10007-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) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (LinearCheck-Core-n--8316-8269-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--9567-8997 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--8316-8269-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--9627-8876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--8316-8268-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--9627-8745 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--9567-8670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9627-8876 arg-0 arg-1 arg-2 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--9627-8745 arg-0 arg-1 arg-2 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8316-8267-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--8316-8270-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--8316-8267-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--8316-8622 (lambda (arg-0 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--9567-8997 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--8316-8267-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--9627-8876 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--9627-8745 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased arg-3) (LinearCheck-Core-n--8316-8267-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--8316-8270-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--8316-8267-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--9174-8514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (LinearCheck-Core-n--8316-8269-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--8316-8269-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--9173-8403 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--8316-8268-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--8316-8268-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--9178-8332 (lambda (arg-0 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define LinearCheck-Core-case--9172-8274 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9178-8332 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7)))))))
(define LinearCheck-Core-case--8622-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) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--8858-8060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--8316-7732-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--8622-7998 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--8858-8060 arg-0 arg-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--8622-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 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (lambda () 0))(else (lambda () 1))))))
(define LinearCheck-Core-case--8622-7834 (lambda (arg-0 arg-1 arg-2 arg-3 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--8316-7797 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8622-7834 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--8622-7896 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--8622-8145 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--8858-8060 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--8364-7613 (lambda (arg-0 arg-1 arg-2 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--7112-7355 (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--7981-7156 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--7112-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) (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--7981-7156 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--7192-6610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--7192-6474 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define LinearCheck-Core-case--7101-6423 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--7192-6610 '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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-5 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (TT-Core-varIdx 'erased eta-0)) arg-15))))))))
(define LinearCheck-Core-case--7041-6319 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (+ 1 arg-4)))
(define LinearCheck-Core-case--6991-6269 (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--8316-7499-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--8364-7613 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11))))
(define LinearCheck-Core-n--8337-12353-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--8337-12353-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) ((2) (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--8316-7732-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-19 e-20) (LinearCheck-Core-n--8316-7732-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--8316-7732-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--8316-7732-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--8316-7732-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--8341-12890-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--8341-12890-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--8341-12890-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--6859-6147-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--8337-12354-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8316-7498-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8316-7497-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--8316-8267-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))(else (LinearCheck-Core-case--9178-8332 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-7)))))))
(define LinearCheck-Core-n--8332-10857-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--12205-11527 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--8332-10857-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--8332-10857-isLocArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-7 e-3)))))))))))
(define LinearCheck-Core-n--8316-8268-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--9173-8403 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-8)))))))))))))
(define LinearCheck-Core-n--8332-10859-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--8332-10858-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--8332-10855-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--8316-7497-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--8316-7497-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--8332-10855-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--8332-10855-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--12203-11026 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--12203-11026 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8316-8269-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--9174-8514 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (TT-Core-multiplicity 'erased e-4))))))))))
(define LinearCheck-Core-n--12203-10903-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--8332-10855-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--12257-10922 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) arg-11))))))))))
(define LinearCheck-Core-n--8332-10861-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--8332-10860-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--8332-10861-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--8332-10860-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--8332-10862-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--8332-10862-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--8332-10861-combineUsages arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-5) eta-0)))))))))))))))))
(define LinearCheck-Core-n--15026-13392-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8332-10856-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8316-8270-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8332-10858-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--12206-11782 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--12206-11668 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--8332-10856-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--8332-10857-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--8332-10858-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--6859-6147-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--7981-7156 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--7112-7355 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--7101-6423 '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--7041-6319 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--14622-13098 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8337-12578 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-3275) (TT-Core-weaken_Weaken__Term n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (TT-Core-weakenNs_Weaken__Term vars ns arg-3279))))) 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--8316-7498-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--8316-7499-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (let ((_-0 (vector 1 e-1))) (LinearCheck-Core-case--8622-7834 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--8622-7896 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--8622-8145 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--8858-8060 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--8316-8267-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--8316-8267-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9567-8997 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--8316-8267-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--9627-8876 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--9627-8745 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega (TT-Core-multiplicity 'erased e-18) (LinearCheck-Core-n--8316-8267-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--8316-8270-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--8316-8267-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--10371-9367 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--8332-10859-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--8332-10862-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--8341-12890-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--6991-6269 '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--15026-13535 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--15026-13442 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--15026-13392-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--6326-7134 (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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--6278-7092 (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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--6037-6949 (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--6037-6883 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--5972-6807 (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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--5819-6738 (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--5819-6693 (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--5271-6591 (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) 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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-2)) (lambda (_-6615) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 16 arg-1 arg-0) eta-0)))))))
(define BindImplicits-TTImp-case--5271-6137 (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) 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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (vector 1 (vector 0 arg-0 nC-39) upds) eta-4)) (lambda (_-6214) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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--6219-7024-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--6219-7024-tag arg-0 arg-1 'erased (b+ arg-3 1 63) e-3)))))))))
(define BindImplicits-TTImp-n--5271-6521-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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-5 eta-0)))))))
(define BindImplicits-TTImp-n--5819-6789-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--5271-6137 e-43 e-5 e-4 e-2 e-1 e-0 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (BindImplicits-TTImp-n--5271-6521-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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (Prelude-traverse_Traversable__List 'erased 'erased 'erased (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (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-3444) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func-0 arg-3444))))) func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a-0) (lambda (arg-3511) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3511))) (lambda (b) (lambda (a-0) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a-0) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-3510 eta-2)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a-0) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b-0) (lambda (a-0) (lambda (arg-3512) (lambda (arg-3514) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3512 arg-3514)))))) (lambda (b-0) (lambda (a-0) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a-0) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) arg-3511 arg-3513 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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) (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--5271-6591 e-40 e-39 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675)))) 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--6037-6883 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Utils-TTImp-findIBindVars e-11)))) (BindImplicits-TTImp-case--6037-6949 e-6 e-11 e-3 arg-0 ns (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--5819-6789-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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--6219-7024-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--1888-844 (lambda (arg-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--1812-808 (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--1888-844 '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--1699-647 (lambda (arg-0 arg-1 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--1610-601 (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--1541-448-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--1541-448-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-3443) (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-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3510 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (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-3511 arg-3513 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (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-3672 arg-3673 eta-0)))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3675 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-3443) (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-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3510 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (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-3511 arg-3513 eta-0))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (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-3672 arg-3673 eta-0)))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (State-Monad-Control-join_Monad__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased 'erased arg-2 arg-3675 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-299) (lambda (eta-0) (State-Monad-Control-put_MonadState__C-36stateType_C-40C-40StateTC-32C-36stateTypeC-41C-32C-36mC-41 'erased 'erased arg-2 arg-299 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-3443) (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-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) (State-Monad-Control-pure_Applicative__C-40C-40StateTC-32C-36stateTypeC-41C-32C-36fC-41 'erased 'erased 'erased arg-2 arg-3510 eta-0)))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (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-3511 arg-3513 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--1888-844 '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)))
(define State-Monad-Control-put (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-4 (vector-ref sc0 3))) (lambda (arg-3) (e-4 arg-3))))))
(define State-Monad-Control-get (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (let ((e-3 (vector-ref sc0 2))) e-3))))
(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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513)))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (Identity-Monad-Control-C-62C-62C-61_Monad__Identity 'erased 'erased arg-3672 arg-3673))))) (lambda (a) (lambda (arg-3675) (Identity-Monad-Control-join_Monad__Identity 'erased arg-3675))))))
(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-3443) (Identity-Monad-Control-map_Functor__Identity 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Identity-Monad-Control-pure_Applicative__Identity 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Identity-Monad-Control-C-60C-42C-62_Applicative__Identity 'erased 'erased arg-3511 arg-3513))))))))
(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--8298-11867 (lambda (arg-0 arg-1 arg-2 arg-3 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--19842-13073 (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--19822-13066 (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--19842-13073 arg-4 arg-3 (ProcessDef-TTImp-nameListEq arg-3 arg-4) arg-0)))) (else (vector 0 ))))))
(define ProcessDef-TTImp-with--13946-8122 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--13946-8049 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--22993-16178 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 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--22993-16098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--22813-15818 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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--21445-14458-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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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--22813-15709 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define ProcessDef-TTImp-case--22770-15663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--22813-15709 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) (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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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--21445-14458-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-436) (lambda (arg-437) (Check-Elab-TTImp-C-61C-61_Eq__ElabOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Check-Elab-TTImp-C-47C-61_Eq__ElabOpt arg-438 arg-439)))) (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--21445-15633 (lambda (arg-0 arg-1 arg-2 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--22770-15663 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--22468-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 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Covering arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Covering arg-6292 arg-6293)))) (vector 2 arg-26) eta-0)))))))
(define ProcessDef-TTImp-case--22176-15381 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Covering arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Covering arg-6292 arg-6293)))) (vector 2 e-5) eta-0))))))))))) (else (lambda (eta-0) (vector 1 (vector 1 arg-25))))))))
(define ProcessDef-TTImp-case--22176-15270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--21466-15113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--22176-15270 arg-0 arg-1 arg-2 arg-3 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--21445-14455-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--21445-14456-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--22176-15381 arg-0 arg-1 arg-2 arg-3 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--21464-14935 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--21710-14775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--21464-14514-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--21623-14697 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--21464-14514-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--21464-14626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--21464-14514-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--21307-14395 (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--21029-14169 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--20934-14083 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--20784-14007 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--20934-14083 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--20784-13920 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--20507-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 arg-17))(else arg-17)))))
(define ProcessDef-TTImp-case--20748-13885 (lambda (arg-0 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--20507-13633-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--20507-13632-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--20507-13634-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--20507-13631-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--20934-14083 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--20507-13857 (lambda (arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--20748-13885 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--20154-13524 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--20154-13486 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--20154-13350 (lambda (arg-0 arg-1 arg-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--20066-13322 (lambda (arg-0 arg-1 arg-2 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--19892-13109-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--20066-13274 (lambda (arg-0 arg-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--20045-13256 (lambda (arg-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--19892-13109-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--19892-13241 (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--20045-13256 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--19923-13163 (lambda (arg-0 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--19892-13109-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6)) (else (ProcessDef-TTImp-n--19892-13109-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 (NameMap-Data-delete 'erased arg-4 arg-6)))))))
(define ProcessDef-TTImp-case--19898-13136 (lambda (arg-0 arg-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--19923-13163 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (ProcessDef-TTImp-n--19892-13109-dropErased arg-0 arg-1 arg-2 arg-3 arg-5 arg-6))))))
(define ProcessDef-TTImp-case--17405-12952 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--18490-12442 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--18490-12202 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define ProcessDef-TTImp-case--18038-11890 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--18490-12202 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--15844-10627-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--18038-11691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17909-11522 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--18038-11691 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__WithFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__WithFlag arg-438 arg-439)))) (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--18038-11890 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17783-11433 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17909-11522 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17644-11346 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17783-11433 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17508-11240 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17644-11346 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--17405-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 arg-13 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--17508-11240 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--15844-10626-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--15844-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 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--17405-12952 arg-0 arg-1 arg-2 arg-3 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--17508-11240 arg-0 arg-1 arg-2 arg-3 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--15844-10626-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--16898-10918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16898-10836 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16898-10754 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16898-10672 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16443-10534 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16443-10394 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--15844-10228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--16443-10534 arg-0 arg-1 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--16235-10137 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15844-10050 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15991-9927 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--15895-9855 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--15844-9769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--15200-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 arg-13 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15200-9353 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--15200-9211 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--15078-9141 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15078-9082 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--14838-8976 (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--14838-8824-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--14838-8821-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--14857-8921 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-5 arg-4))))))))
(define ProcessDef-TTImp-case--14856-8855 (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--14838-8822-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))) (else (ProcessDef-TTImp-n--14838-8822-lookupAll arg-0 arg-1 arg-2 arg-3 arg-7 arg-6))))))
(define ProcessDef-TTImp-case--14697-8763 (lambda (arg-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--14697-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) ((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--14538-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) (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--14165-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14165-8227-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--14165-8548 (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--14165-8228-findLinArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-0 (ProcessDef-TTImp-n--14165-8227-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--14198-8332 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--14165-8228-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--14165-8228-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--14197-8234 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define ProcessDef-TTImp-case--13548-7762 (lambda (arg-0 arg-1 arg-2 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--13548-7674 (lambda (arg-0 arg-1 arg-2 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--13200-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) (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--13200-7357 (lambda (arg-0 arg-1 arg-2 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--12912-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) (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--12912-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 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--20507-13633-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--20507-13634-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--21445-14454-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--21445-14454-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--14838-8821-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--20507-13628-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--15844-10627-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--15844-10627-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--20507-13629-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--20507-13629-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--20507-13630-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--20507-13629-matchAny arg-0 arg-1 arg-2 arg-3 arg-4 'erased arg-7) (ProcessDef-TTImp-n--20507-13628-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--14838-8822-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--14856-8855 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--15844-10626-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--16898-10672 arg-0 arg-1 arg-2 arg-3 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--15844-10626-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--16898-10754 arg-0 arg-1 arg-2 arg-3 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--15844-10626-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--16898-10836 arg-0 arg-1 arg-2 arg-3 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--15844-10626-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--16898-10918 arg-0 arg-1 arg-2 arg-3 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--15844-10626-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--20507-13632-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--20507-13632-getSpec arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))
(define ProcessDef-TTImp-n--21445-14457-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 arg-5 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) (let ((act-24 (Context-Core-log arg-9 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Error in getClause " (Core-Core-show_Show__Error e))) eta-1))) (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 )))))))) eta-0)))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 1 (vector 1 e-5)))))))))
(define ProcessDef-TTImp-n--14165-8228-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--14165-8228-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--14165-8228-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--14198-8332 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--14165-8228-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--14165-8228-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--14165-8228-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--14165-8228-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--14198-8332 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--14165-8228-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--14165-8228-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--14165-8228-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--14165-8228-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--14198-8332 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--14165-8228-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--14165-8228-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--14165-8228-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--14165-8228-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--19892-13109-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--19923-13163 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))) (else ((ProcessDef-TTImp-n--19892-13109-dropErased arg-0 arg-1 arg-2 arg-3 e-3 arg-5) eta-0))))))))))))))))))))))
(define ProcessDef-TTImp-n--14838-8824-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--14838-8823-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--14838-8824-combineAll arg-0 arg-1 arg-2 arg-3 e-5 e-3) eta-0))))))))))))))
(define ProcessDef-TTImp-n--14838-8823-combine (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (ProcessDef-TTImp-case--14857-8921 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-4 arg-5))) (lambda () (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega (Preorder-Algebra-glb 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-60C-61_Preorder__ZeroOneOmega arg-256 arg-257))) (lambda (x) (ZeroOneOmega-Algebra-preorderRefl_Preorder__ZeroOneOmega x)) (lambda (x) (lambda (y) (lambda (z) (lambda (arg-259) (lambda (arg-261) (ZeroOneOmega-Algebra-preorderTrans_Preorder__ZeroOneOmega x y z arg-259 arg-261))))))) arg-4 arg-5) (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega)))))))))
(define ProcessDef-TTImp-n--21464-14514-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--21464-14514-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--21445-14456-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--21464-14514-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--21464-14935 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--21445-14458-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--21445-14457-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40CaseTreeC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--22176-15270 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--21445-14455-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--21445-14456-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--22176-15381 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--21445-14455-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--21445-14454-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--20507-13631-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--20507-13630-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--20507-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))(else (vector 1 e-2 (ProcessDef-TTImp-n--20507-13631-addErrorCase arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
(define ProcessDef-TTImp-n--14165-8227-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--14697-8705 'erased e-8 e-7 e-6 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-1)))))) ((5) (let ((e-10 (vector-ref sc1 1))) (let ((e-11 (vector-ref sc1 2))) (ProcessDef-TTImp-case--14697-8763 'erased e-11 e-10 e-2 e-4 e-1 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--13548-7674 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--13548-7762 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--22770-15663 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--19822-13066 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--20748-13885 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--12912-7105 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--12912-7187 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--13200-7357 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--13200-7439 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--14165-8548 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--13946-8049 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--13946-8122 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--14838-8976 e-6 e-7 e-3 arg-0 (ProcessDef-TTImp-n--14838-8822-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--16443-10534 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--17405-12952 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--17508-11240 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--15844-10626-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--20045-13256 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--6200-7066 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--6142-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 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--6200-7066 '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--6090-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)) (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--6200-7066 '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--5985-6928 (lambda (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--6200-7066 '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--5998-6873 (lambda (arg-0 arg-1 arg-2 arg-3 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--5866-6809 (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--5866-6756 (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--5202-6693 (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--5200-6617 (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--5200-6436 (lambda (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--5200-6332 (lambda (arg-0 arg-1 arg-2 arg-3 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--5200-6260 (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--5200-6219 (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--5200-6173 (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--6457-7246-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7246-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7244-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7245-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--6457-7243-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--6457-7243-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--6457-7244-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--6457-7244-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--6457-7243-withApply arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 newrhs e-3)))))))))))))))))))))))))))))))))))
(define WithClause-TTImp-n--5200-6291-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--5985-6850-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--5985-6850-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--6457-7245-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--5202-6693 e-6 e-7 e-3 arg-0 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--5985-6850-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--6200-7066 '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--5200-6173 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-66 e-62)))))))(else (WithClause-TTImp-case--5200-6219 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--5200-6260 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6260 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6332 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--5200-6291-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6436 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5200-6617 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--5866-6756 e-14 arg-3 arg-2 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--5866-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--5866-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--5866-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--5866-6809 e-4 e-6 arg-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--12462-11921 (lambda (arg-0 arg-1 arg-2 arg-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--13516-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) (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--13473-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) (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--12462-11387-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--12462-11423 (lambda (arg-0 arg-1 arg-2 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--13473-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 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--12438-10981 (lambda (arg-0 arg-1 arg-2 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--12724-10930 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12743-10864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--12724-10775 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12438-10759-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--12438-10711 (lambda (arg-0 arg-1 arg-2 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--12547-10651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12107-10232 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12075-10199 (lambda (arg-0 arg-1 arg-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--11871-10057 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11803-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) (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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (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--11871-10057 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--11419-9929 (lambda (arg-0 arg-1 arg-2 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--11419-9608-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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (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--11871-10057 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--11539-9756 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19) (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--11488-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 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--11539-9756 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 e-5 e-6 e-7 (PartialEval-TTImp-n--11419-9607-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--11435-9660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11488-9696 arg-0 arg-1 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-13 arg-12))))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define PartialEval-TTImp-case--11282-9513 (lambda (arg-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--11174-9400-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--11174-9468 (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--11174-9400-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--11207-9416 (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--11174-9400-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--11174-9400-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--9987-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) (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--10872-9173 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--10301-9113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--10479-8867 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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--9987-8317-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--10301-8769 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--9987-8316-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--9987-8317-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--9987-8317-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--9987-8592 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--9987-8314-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--10301-8769 '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--10162-8510 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9987-8479 (lambda (arg-0 arg-1 arg-2 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--9918-8263 (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--9903-8244 (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--9411-8148 (lambda (arg-0 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--9411-7764-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--9411-7765-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--9411-7769-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--9338-7706 (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--9220-7596 (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--9013-7420 (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--8976-7381 (lambda (arg-0 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--8810-7220 (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--8712-7142 (lambda (arg-0 arg-1 arg-2 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--9411-7769-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--9411-7768-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--9987-8316-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--9987-8317-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--9411-7767-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--9411-7767-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--9411-7767-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--9411-7765-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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(else (lambda (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--9411-7765-mkRHSargs 'erased arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 (vector 8 arg-8 arg-11 (vector 0 arg-8 (vector 1 e-1))) e-2 e-5))(else (lambda (eta-0) (vector 1 arg-11)))))))(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--9411-7764-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--9411-7764-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--9411-7764-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--9411-7764-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--11419-9608-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--11419-9608-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--11488-9696 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-9 arg-10)) eta-0)))) (else (vector 1 (vector 0 )))))))))))))))))))))
(define PartialEval-TTImp-n--9411-7766-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--9411-7766-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--9411-7766-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--9987-8314-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--9987-8314-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--9987-8314-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--12438-10759-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--12724-10775 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--12438-10759-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--12462-11387-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--12462-11387-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--11174-9400-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--11207-9416 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-4 arg-5)))))))))
(define PartialEval-TTImp-n--9411-7768-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--9411-7767-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--9411-7766-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--11419-9606-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--11419-9606-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--11419-9607-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--11419-9606-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--12438-10622-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--12547-10651 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--12438-10622-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--8810-7220 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--8712-7142 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) 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--11419-9929 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--9220-7596 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--12438-10711 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--12438-10622-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--12438-10981 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--12438-10759-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--13473-11453 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--8976-7381 'erased e-2 e-3 arg-4 arg-2 arg-1 subs (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--9987-8314-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--10301-8769 '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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--9411-8148 '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--9903-8244 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--11174-9468 '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--9338-7706 'erased e-2 e-3 arg-2 arg-1 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--7560-7272 (lambda (arg-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-4)) (case (vector-ref sc2 0) ((1) (let ((e-7 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((0) (vector 0 arg-6 e-7))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5)))))))(else (vector 0 arg-6 arg-5))))))(else (vector 0 arg-6 arg-5))))))
(define Impossible-TTImp-case--7559-7215 (lambda (arg-0 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) (Impossible-TTImp-n--7548-7176-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7)) (else (vector 1 (vector 31 arg-9 1) (Impossible-TTImp-n--7548-7176-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-6 arg-9 arg-7)))))))
(define Impossible-TTImp-case--6670-7004 (lambda (arg-0 arg-1 arg-2 arg-3 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--6665-6781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--6982-6683 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--6665-6645-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--6665-6538 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--6737-6440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--6665-6419-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--6665-6419-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--6737-6440 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--6665-6419-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--6665-6419-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--6665-6645-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--6982-6683 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--6665-6645-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--6665-6645-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--6436-6140-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--6436-6140-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--6436-6140-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--6436-6140-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--6436-6140-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--7548-7175-isLet (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) 0)(else 1)))))
(define Impossible-TTImp-n--7548-7177-expandNest (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((0) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (Impossible-TTImp-case--7560-7272 arg-0 arg-1 arg-2 arg-3 arg-4 e-1 e-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-2)))))(else arg-5)))))
(define Impossible-TTImp-n--7548-7178-applyEnv (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (case (vector-ref sc0 0) ((8) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (vector 8 e-0 (Impossible-TTImp-n--7548-7178-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-1) e-2))))) ((9) (let ((e-3 (vector-ref sc0 1))) (let ((e-4 (vector-ref sc0 2))) (let ((e-5 (vector-ref sc0 3))) (let ((e-6 (vector-ref sc0 4))) (vector 9 e-3 (Impossible-TTImp-n--7548-7178-applyEnv arg-0 arg-1 arg-2 arg-3 arg-4 e-4) e-5 e-6))))))(else (TTImp-TTImp-apply (Impossible-TTImp-n--7548-7177-expandNest arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (Impossible-TTImp-n--7548-7176-addEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-0 (TTImp-TTImp-getFC arg-5) arg-3)))))))
(define Impossible-TTImp-n--7548-7176-addEnv (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 ((sc1 arg-7)) (vector 0 ))) (else (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (let ((sc1 arg-7)) (let ((e-8 (vector-ref sc1 1))) (let ((e-9 (vector-ref sc1 2))) (Impossible-TTImp-case--7559-7215 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 e-9 e-8 arg-6 (Impossible-TTImp-n--7548-7175-isLet arg-0 arg-1 arg-2 arg-3 arg-4 '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--6665-6538 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--6665-6419-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--6665-6781 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--6665-6645-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--6436-6140-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 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))) ((Impossible-TTImp-mkTerm arg-1 e-5 (Impossible-TTImp-n--7548-7178-applyEnv arg-0 arg-4 arg-3 arg-2 arg-1 arg-4) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) arg-438 arg-439)))) (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--6913-8042 (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--6630-7782 (lambda (arg-0 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--6604-7731 (lambda (arg-0 arg-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--6630-7782 '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--6550-7681 (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--6445-7618 (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--6426-7575 (lambda (arg-0 arg-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--6116-7322 (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--6020-7235 (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--6001-7192 (lambda (arg-0 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--6020-7235 '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--5906-7130 (lambda (arg-0 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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (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--6426-7575 '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--6604-7731 '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--6116-7322 'erased 'erased arg-4 arg-3 arg-2 (TT-Core-eqTerm 'erased 'erased arg-3 arg-4))))))))(else (Transform-Core-case--6116-7322 '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--5906-7130 '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--6550-7681 '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--6001-7192 '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--12139-11161 (lambda (arg-0 arg-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--12106-11135 (lambda (arg-0 arg-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--12090-11106 (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--12106-11135 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--12013-11045 (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--11994-11024 (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--11826-10895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11806-10860 (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--11754-10815 (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--11677-10760 (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--11665-10730 (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--11588-10668 (lambda (arg-0 arg-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--11289-10602 (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--11289-10545 (lambda (arg-0 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--11289-10478 (lambda (arg-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--11289-10404-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--11303-10421 (lambda (arg-0 arg-1 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--11289-10404-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--11289-10404-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--11132-10325 (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--11132-10257 (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--11084-10210 (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--10975-10141 (lambda (arg-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--10781-10102 (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--10781-9934-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--10852-10019 (lambda (arg-0 arg-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--10781-9933-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--10781-9933-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--10803-9993 (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--10781-9933-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--10781-9933-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--10781-9933-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--10786-9950 (lambda (arg-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--10781-9933-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--10803-9993 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--10672-9885 (lambda (arg-0 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--10117-9342-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--10117-9831 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (Termination-Core-n--10117-9336-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--10117-9342-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--10407-9615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--10365-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) (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--10332-9555 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--10117-9339-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--10365-9587 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--10130-9532 (lambda (arg-0 arg-1 arg-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--10332-9555 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--10129-9463 (lambda (arg-0 arg-1 arg-2 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--10117-9339-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--10117-9338-updateArg arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-2) (Termination-Core-n--10117-9339-mkArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8))))))))
(define Termination-Core-case--10010-9251 (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--9585-8956 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))
(define Termination-Core-case--7668-8826 (lambda (arg-0 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--7663-8758 (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--7663-8358-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--9049-8642 (lambda (arg-0 arg-1 arg-2 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--9049-8534-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--9048-8479 (lambda (arg-0 arg-1 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--7663-8355-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-10 arg-9))))))
(define Termination-Core-case--9048-8391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--7663-8355-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--8851-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-10)) (cond ((equal? sc0 0) (vector 1 arg-9)) (else (vector 0 ))))))
(define Termination-Core-case--7659-8185 (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--8851-8225 '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--8750-8146 (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--8714-8101 (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--7657-8070 (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--8714-8101 'erased arg-1 arg-2 arg-3 arg-4 arg-5 (TT-Core-getFnArgs 'erased arg-1)))))))
(define Termination-Core-case--7653-8026 (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--8144-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) (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--8100-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) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) e-5))))))))))))))))))))))
(define Termination-Core-case--8065-7504 (lambda (arg-0 arg-1 arg-2 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--7649-7251-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--8100-7540 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--7649-7476 (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--7649-7250-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--7649-7251-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--8100-7540 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--7923-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) (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--7807-7357 (lambda (arg-0 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--7923-7385 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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--7806-7266 (lambda (arg-0 arg-1 arg-2 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--7649-7186 (lambda (arg-0 arg-1 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--7474-7028 (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--7474-6990 (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--7474-6956 (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--6734-6693 (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--6734-6296-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--6742-6641 (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--6734-6296-allGuarded arg-0 arg-1 arg-2 arg-7)) (else (lambda (eta-0) (vector 1 1)))))))
(define Termination-Core-case--6977-6540 (lambda (arg-0 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--6734-6294-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--6741-6513 (lambda (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--6734-6294-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--6855-6416 (lambda (arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (lambda () (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (vector 8 ) (let ((sc0 arg-5)) (let ((e-11 (vector-ref sc0 12))) e-11))))))))))))
(define Termination-Core-case--6740-6401 (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--6855-6416 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--6739-6334 (lambda (arg-0 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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--6590-6216 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0)))))))
(define Termination-Core-case--6569-6165 (lambda (arg-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Terminating arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Terminating arg-6292 arg-6293)))) (vector 2 (vector 1 (vector 1 arg-0 (vector 0 )))) eta-0))))))))))
(define Termination-Core-case--6545-6150 (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--6569-6165 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--9049-8534-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--7663-8356-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--7663-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-17) (Termination-Core-n--7663-8356-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--7663-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-22) (Termination-Core-n--7663-8356-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--7663-8356-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--7663-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 e-31) (Termination-Core-n--7663-8356-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--7663-8356-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--7663-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 arg-8 eta-0)) e-40) (Termination-Core-n--7663-8356-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--7663-8356-updateRHS (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (Termination-Core-case--9049-8642 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-6 arg-7 (Termination-Core-n--7663-8355-lookupTm arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased arg-8 arg-7))))
(define Termination-Core-n--7663-8357-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--7663-8356-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3)))))))
(define Termination-Core-n--10117-9338-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--10117-9339-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--10117-9339-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--10129-9463 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-9 e-10 e-3 (Termination-Core-n--10117-9337-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-1 e-9))))))))))))))))
(define Termination-Core-n--7663-8358-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--7663-8357-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--7663-8355-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--9048-8391 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--9048-8479 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--7649-7250-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--7806-7266 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--6734-6293-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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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--6734-6295-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--6734-6293-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--6734-6294-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--10117-9341-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--10117-9341-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3)) ((0) (Termination-Core-n--10117-9341-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 0 ) e-3))(else e-2))))))))))
(define Termination-Core-n--10117-9337-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--10117-9337-getPos arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 'erased e-3 e-4))))))))))))
(define Termination-Core-n--7649-7146-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--11289-10404-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--11303-10421 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-7 arg-8)))))))))
(define Termination-Core-n--10117-9342-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--10117-9340-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--10117-9341-getWorst arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (vector 1 ) e-5)))))))))
(define Termination-Core-n--7649-7251-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--7923-7385 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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--6734-6294-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--6855-6416 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--10117-9336-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--10117-9336-checkDesc arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3 arg-7)))))))))))
(define Termination-Core-n--10117-9340-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--10332-9555 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--6734-6296-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--6734-6295-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--6734-6296-allGuarded arg-0 arg-1 arg-2 e-3) eta-0)) (else (vector 1 1)))))))))))))))))))))))))
(define Termination-Core-n--10781-9933-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--10786-9950 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--10781-9934-addCases (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Termination-Core-n--10781-9933-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--6569-6165 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--7657-8070 '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--7653-8026 '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--11289-10404-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--11132-10325 e-10 e-12 e-13 e-14 e-11 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__SCCall arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__SCCall arg-438 arg-439)))) ((Prelude-concat 'erased 'erased (vector 0 (vector 0 (lambda (acc) (lambda (elem) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldr_Foldable__List 'erased 'erased func init input)))))) (lambda (elem) (lambda (acc) (lambda (func) (lambda (init) (lambda (input) (Prelude-foldl_Foldable__List 'erased 'erased func init input))))))) (vector 0 (lambda (arg-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--7663-8358-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--7649-7146-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--7649-7476 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--7649-7476 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--12090-11106 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--11084-10210 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--10117-9831 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 pos (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Name-Core-C-61C-61_Eq__Name arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Name-Core-C-47C-61_Eq__Name arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__Int arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__Int arg-444 arg-445)))) arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--11994-11024 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--6734-6296-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--10781-9934-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--7659-8185 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
(define Coverage-Core-case--9945-10372 (lambda (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--9940-10336-tryClauses arg-0 arg-1 arg-2 arg-7 arg-8) eta-0)))))))))))
(define Coverage-Core-case--9675-10134 (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--9675-10074-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--9680-10090 (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--9675-10074-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4))) (else (vector 1 arg-3 (Coverage-Core-n--9675-10074-dropPos 'erased arg-1 arg-2 arg-7 (+ 1 arg-6) arg-5 arg-4)))))))
(define Coverage-Core-case--9321-9856 (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--9321-9749-notCovering arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9321-9748-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--9350-9789 (lambda (arg-0 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--9327-9774 (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--9350-9789 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--8750-9237 (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--8654-9146 (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--8316-8908 (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--8316-8848 (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--8316-8792 (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--7888-8551 (lambda (arg-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--7888-8408-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--7915-8445 (lambda (arg-0 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--7906-8419 (lambda (arg-0 arg-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--7915-8445 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--7695-8264 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--7673-8229 (lambda (arg-0 arg-1 arg-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--7695-8264 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--7516-8119 (lambda (arg-0 arg-1 arg-2 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--7487-8077 (lambda (arg-0 arg-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--6881-7538-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--6881-8055 (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--7487-8077 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--6893-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) (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--6893-7893 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--6881-7537-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--6893-7805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--6881-7537-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--6934-7621 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--6892-7584 (lambda (arg-0 arg-1 arg-2 arg-3 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--6881-7537-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--6366-7508 (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--6388-7467 (lambda (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--6366-7096-conflictArgs arg-0 arg-1 arg-2 arg-3 arg-8 arg-7 arg-6))))))
(define Coverage-Core-case--6700-7401 (lambda (arg-0 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--6366-7095-conflictTm arg-0 arg-1 arg-2 arg-3 eta-0 eta-1))) arg-7 arg-9)))))))
(define Coverage-Core-case--6671-7377 (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--6700-7401 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2 e-3 (Coverage-Core-n--6366-7093-clash arg-0 arg-1 arg-2 arg-3 arg-6 e-2)))))))
(define Coverage-Core-case--6387-7355 (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--6671-7377 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--6387-7287 (lambda (arg-0 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--6366-7094-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--6387-7209 (lambda (arg-0 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--6366-7094-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--6386-7145 (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--6366-7094-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--9940-10336-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--9940-10336-tryClauses arg-0 arg-1 arg-2 e-3 arg-4) eta-0)))))))))))))))))))))))))
(define Coverage-Core-n--8945-9393-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--9321-9749-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--9350-9789 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--8316-8944-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--9321-9748-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--9855-10251-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--9855-10251-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--8316-8892-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--8316-8832-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--6366-7094-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--6386-7145 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-5)))))))
(define Coverage-Core-n--8145-8632-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--8945-9394-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--8945-9394-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--8945-9394-dropRep arg-0 arg-1 arg-2 arg-3 arg-4 e-3))))))))))))
(define Coverage-Core-n--9675-10074-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--9680-10090 'erased arg-1 arg-2 e-2 e-3 arg-5 arg-4 arg-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-4 arg-5)))))))))
(define Coverage-Core-n--6366-7095-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--6387-7209 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--6387-7287 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--6387-7355 arg-0 arg-1 arg-2 arg-3 arg-5 arg-4 (TT-Core-getFnArgs 'erased arg-4))))))))))
(define Coverage-Core-n--6881-7538-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--6881-7538-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--6893-7805 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--6893-7893 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--6893-7981 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--6893-7805 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--6893-7893 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--6893-7981 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--6893-7805 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--6893-7893 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--6893-7981 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--6893-7805 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--6893-7893 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--6893-7981 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--6881-7537-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--6881-7538-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--6881-7537-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--6366-7096-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--6388-7467 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--6366-7095-conflictTm arg-0 arg-1 arg-2 arg-3 arg-5 e-7))))))))))))))
(define Coverage-Core-n--9855-10252-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--9855-10251-mkSubstEnv arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 0 arg-7) arg-8)))
(define Coverage-Core-n--6366-7093-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--9048-9483-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--9048-9482-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--9048-9483-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--9048-9482-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--9048-9483-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--9048-9482-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--7888-8408-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--7915-8445 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) 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--8945-9393-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--8945-9394-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Int arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Int arg-2934 arg-2935)))) (vector 0 (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Int arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Int arg-2806 arg-2807)))))) 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-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Int arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Int arg-2934 arg-2935)))) (vector 0 (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Int arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Int arg-2806 arg-2807)))))) 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--7695-8264 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--9321-9749-notCovering arg-2 arg-1 arg-0 e-5 eta-0 eta-1))) (List-Data-mapMaybe 'erased 'erased (lambda (eta-0) (Coverage-Core-n--9321-9748-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--8316-8792 arg-0 e-1 arg-4 arg-2 arg-1 (List-Data-isNil 'erased arg-4)))(else (Coverage-Core-case--8316-8848 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--8316-8832-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--8316-8908 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--8316-8892-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--8316-8944-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--7888-8408-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--8654-9146 '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--9675-10134 '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--8145-8632-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--6366-7508 arg-0 e-6 e-7 e-3 (Coverage-Core-n--6366-7096-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--7487-8077 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--9855-10252-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--9940-10336-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--9048-9483-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--8750-9237 '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--10586-7588 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--10560-6761-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--10560-6761-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--10560-6761-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--10560-6761-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--10585-7412 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10560-6760-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--10560-6760-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--10560-6760-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--10560-6760-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--10584-7088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10560-6759-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--10560-6759-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--10560-6759-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--10560-6759-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--8778-5224 (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--8816-5241 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--8816-5371 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--8816-5307 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--8816-5371 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--8816-5371 arg-2 arg-1 arg-0 arg-6 arg-4 (CaseBuilder-Core-clauseType 'erased 'erased 'erased arg-4 arg-6)))))))))
(define CaseBuilder-Core-case--15240-11297 (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--15240-11108-getUnreachable arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 0 reached arg-0)))))))))))
(define CaseBuilder-Core-case--15331-11127 (lambda (arg-0 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--15240-11108-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--15240-11108-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--14895-10733 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--14853-10696 (lambda (arg-0 arg-1 arg-2 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--14895-10733 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--14813-10663 (lambda (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--14895-10733 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--14798-10628 (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--14895-10733 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--14320-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 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--13520-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 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--13509-9426 (lambda (arg-0 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--13294-9237 (lambda (arg-0 arg-1 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--13217-9156 (lambda (arg-0 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--13040-9087 (lambda (arg-0 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--13071-9019 (lambda (arg-0 arg-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--13040-8958 (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--12932-8862 (lambda (arg-0 arg-1 arg-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--12360-8516 (lambda (arg-0 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--12334-8331-samePatAs 'erased 'erased 'erased arg-3 arg-4 (vector 3 arg-7 arg-6) arg-9)) (else 1)))))
(define CaseBuilder-Core-case--12360-8437 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16) (let ((sc0 arg-16)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--12334-8331-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--12360-8358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--12334-8331-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--11946-8238 (lambda (arg-0 arg-1 arg-2 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--11946-7992-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--11983-8139 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18) (let ((sc0 arg-18)) (cond ((equal? sc0 0) (CaseBuilder-Core-n--11946-7992-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--10587-7691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--10560-6759-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--10585-7249 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10721-7001 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10584-6876 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10584-6791 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10347-6718 (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--10347-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-4) e-6))))))))
(define CaseBuilder-Core-case--10370-6662 (lambda (arg-0 arg-1 arg-2 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--10370-6592 (lambda (arg-0 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--10347-6582-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--10347-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased arg-7))))))))
(define CaseBuilder-Core-case--10223-6513 (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--9747-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) (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--9813-6147 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9747-6086 (lambda (arg-0 arg-1 arg-2 arg-3 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--9813-6147 arg-0 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--9359-5922 (lambda (arg-0 arg-1 arg-2 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--9392-5777 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9359-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) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((0) (vector 3 )) (else (let ((e-2 (vector-ref sc0 1))) (CaseBuilder-Core-case--9392-5777 '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--8816-5371 (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--8816-5307 (lambda (arg-0 arg-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--8816-5241 (lambda (arg-0 arg-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--8473-5119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--8435-4927-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--8473-5016 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--7411-4005 (lambda (arg-0 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--7185-3852 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--7055-3777 (lambda (arg-0 arg-1 arg-2 arg-3 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--7055-3699 (lambda (arg-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--7035-3664 (lambda (arg-0 arg-1 arg-2 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--6902-3589 (lambda (arg-0 arg-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--6656-3531 (lambda (arg-0 arg-1 arg-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--6704-3436 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--6656-3353 (lambda (arg-0 arg-1 arg-2 arg-3 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--13529-9859-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--13529-9859-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--10347-6582-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--10370-6592 '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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--10347-6582-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--10347-6582-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--10347-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-14) (CaseBuilder-Core-n--10347-6582-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--10347-6582-update 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-18) (CaseBuilder-Core-n--10347-6582-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--10370-6662 'erased 'erased 'erased arg-3 arg-4 arg-5 'erased e-21 e-20 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-21 arg-5)))))(else arg-7)))))
(define CaseBuilder-Core-n--10326-6543-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--15240-11112-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--15240-11111-close arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-4 e-5 e-2 e-6) (CaseBuilder-Core-n--15240-11111-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--7596-4166-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--7596-4166-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--7596-4166-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--7596-4166-showAll arg-0 arg-1 arg-2 arg-3 e-3 e-9)))))))))))))))))))))
(define CaseBuilder-Core-n--11946-7992-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--11983-8139 '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--11946-7991-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--12334-8331-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--12360-8358 '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--12360-8437 '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--12360-8516 '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--12334-8331-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--12334-8331-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--12334-8331-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--15240-11110-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--15240-11110-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--14639-10486-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--14639-10486-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--14305-10080-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--14305-10080-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--15240-11109-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--15240-11109-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--11946-7991-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--15240-11108-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--15331-11127 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-6 arg-7)))))))))
(define CaseBuilder-Core-n--14639-10487-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--14639-10487-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--8435-4928-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--8473-5016 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-13) (lambda () (Prelude-C-38C-38 (Prelude-not (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--8435-4928-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--8473-5119 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-1)))))(else (CaseBuilder-Core-n--8435-4927-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--8435-4928-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--8473-5119 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-1)))))(else (CaseBuilder-Core-n--8435-4927-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--8435-4928-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--8473-5119 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) e-1)))))(else (CaseBuilder-Core-n--8435-4927-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--15240-11024-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--15240-11024-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--10560-6763-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--10560-6762-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--10560-6763-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--15163-10953-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--12334-8330-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--15240-11111-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--15240-11110-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--8435-4927-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--13514-9547-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--13514-9547-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--13514-9547-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--13514-9547-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--10560-6762-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--10560-6762-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--10587-7691 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--10560-6759-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--10560-6759-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--10560-6760-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--10560-6761-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--10560-6760-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10585-7412 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--10560-6761-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--10586-7588 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--10560-6759-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--10584-6876 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--10584-7088 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--7596-4166-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-3275) (CaseBuilder-Core-weaken_Weaken__C-40PatInfoC-32C-36pC-41 'erased n vars arg-3275)))) (lambda (vars) (lambda (ns) (lambda (arg-3279) (CaseBuilder-Core-weakenNs_Weaken__C-40PatInfoC-32C-36pC-41 'erased vars ns arg-3279)))))))
(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--13529-9859-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--6656-3353 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--6656-3531 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--6656-3531 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--6656-3531 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--10347-6582-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--10326-6543-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--14798-10628 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--7035-3664 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--11946-8238 '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--12334-8331-samePatAs 'erased 'erased 'erased e-2 e-3 (CaseBuilder-Core-n--12334-8330-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--12334-8330-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--13040-8958 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--13040-9087 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--14639-10487-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--14639-10486-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--8778-5224 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--9813-6147 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--14305-10080-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--10560-6763-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--15240-11024-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--15240-11112-toClosed arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 eta-1)) (CaseBuilder-Core-n--15240-11109-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--15240-11108-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (CaseBuilder-Core-n--15163-10953-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--8435-4928-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--9359-5703 '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--9359-5922 '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--13514-9547-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--10344-7850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--10281-7660 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--8606-6172-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--8606-6172-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--8606-6172-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--8606-6172-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--8606-7615 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--8606-6172-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--8606-6172-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--8606-6172-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--8606-6172-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--8993-7427 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (ZeroOneOmega-Algebra-top_Top__ZeroOneOmega))))))
(define ProcessRecord-TTImp-case--8993-7265 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--8993-7101 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--8993-6919 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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--8993-6580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--8632-6502 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--8606-6172-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--8993-6580 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 )) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--8606-6166-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--8606-6168-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--8606-6165-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--8606-6169-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--8993-7427 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8993-7265 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 ))) (List-Data-replicate 'erased (ProcessRecord-TTImp-n--8606-6171-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--8993-7101 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) 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--8606-6172-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--8993-6919 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-436) (lambda (arg-437) (TT-Core-C-61C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TT-Core-C-47C-61_Eq__C-40TermC-32C-36varsC-41 'erased arg-438 arg-439)))) arg-18 (vector 1 ))) updsC-39 arg-23 (vector 1 arg-20 arg-22) arg-16) eta-0))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define ProcessRecord-TTImp-case--8629-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) (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--8606-6169-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--8629-6251-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--8606-6165-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--8625-6173-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--8606-6168-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--8606-6168-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--8625-6173-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) e-11))))))))))))
(define ProcessRecord-TTImp-n--8606-6166-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--8606-6167-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--8606-6172-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--8632-6502 arg-0 arg-1 arg-2 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-6)))))))))(else (lambda (eta-0) (vector 1 (vector 0 )))))))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define ProcessRecord-TTImp-n--8606-6170-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--8606-6168-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--8606-6165-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--8606-6168-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--8606-6167-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--8606-6169-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--8606-6166-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--8606-6166-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--8606-6171-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--8606-6171-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--8606-6171-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--8629-6251-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--8629-6251-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--8629-6251-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--8606-6170-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--8606-6172-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--8606-6172-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--8606-6172-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--8606-6172-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--9324-6379 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--9216-6287 (lambda (arg-0 arg-1 arg-2 arg-3 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--9216-6190-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--9216-6189-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--9216-6189-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--9216-6190-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--9216-6189-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--9216-6287 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--11050-9953 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-21 eta-0)))))))))))
(define ProcessData-TTImp-case--11619-9742 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 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)) (cond ((equal? sc0 0) (lambda (eta-0) (vector 1 arg-30))) (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--11499-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) (let ((sc0 arg-24)) (case (vector-ref sc0 0) ((6) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((sc1 e-6)) (case (vector-ref sc1 0) ((0) (lambda (eta-0) (let ((act-24 (Normalise-Core-convert_Convert__Term (vector 0 ) arg-17 (vector 0 ) arg-21 (let ((sc2 arg-22)) (let ((e-26 (vector-ref sc2 3))) e-26)) 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) (vector 1 e-5)) (else (let ((act-25 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Previous") (vector 0 ) (let ((sc4 arg-22)) (let ((e-27 (vector-ref sc4 3))) e-27)) 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 (Normalise-Core-logTermNF (vector 0 ) arg-13 (+ 1 0) (lambda () "Now") (vector 0 ) arg-21 eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 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))))))))(else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 38 arg-6 arg-14) eta-0)))))))
(define ProcessData-TTImp-case--11050-9567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--11499-9664 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--11050-9255 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--10481-9143 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11499-9664 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--11050-9255 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (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-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (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--10596-8909 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-19 eta-0)))))))))))
(define ProcessData-TTImp-case--10525-8722 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--10481-8664 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--10412-8581 (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--10377-8567 (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--10228-8431 (lambda (arg-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--9638-8365 (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--9665-8308 (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--9664-8259 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (ProcessData-TTImp-n--9638-7882-allDisjointWith arg-0 arg-1 arg-2 arg-3 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
(define ProcessData-TTImp-case--9663-8205 (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--9638-7882-allDisjointWith arg-0 arg-1 arg-2 arg-5 arg-4)) (else (lambda (eta-0) (vector 1 1)))))))
(define ProcessData-TTImp-case--9662-8075 (lambda (arg-0 arg-1 arg-2 arg-3 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--9638-7880-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
(define ProcessData-TTImp-case--9662-7970 (lambda (arg-0 arg-1 arg-2 arg-3 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--9638-7880-disjointArgs arg-0 arg-1 arg-2 e-6 e-7) eta-0))))))))))))))))))))))
(define ProcessData-TTImp-case--9661-7917 (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--9638-7880-disjointArgs arg-0 arg-1 arg-2 arg-4 arg-6))))))
(define ProcessData-TTImp-case--9194-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 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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) arg-21 eta-0)))))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define ProcessData-TTImp-case--9115-7448 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--9073-7348 (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--8909-7254 (lambda (arg-0 arg-1 arg-2 arg-3 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--8892-7203 (lambda (arg-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--8909-7254 '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--8833-7150 (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--9062-7339-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--9073-7348 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--9062-7339-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--9062-7339-updateNSApp arg-0 arg-1 arg-2 e-6) e-7 e-8))))))(else arg-3)))))
(define ProcessData-TTImp-n--9562-7786-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--9562-7786-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--9562-7787-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--9638-7884-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--9638-7884-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--9638-7883-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--9638-7880-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--9638-7881-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--9638-7880-disjointArgs arg-0 arg-1 arg-2 e-2 e-5) eta-0))))))))))))))))))))))))
(define ProcessData-TTImp-n--9638-7881-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--9662-7970 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--9662-8075 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--9638-7882-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--9638-7881-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--9638-7882-allDisjointWith arg-0 arg-1 arg-2 arg-3 e-2) eta-0)) (else (vector 1 1)))))))))))))))))))))
(define ProcessData-TTImp-n--9638-7883-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--9638-7883-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--9638-7882-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--9062-7339-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11499-9664 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--11050-9255 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-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (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-436) (lambda (arg-437) (TTImp-TTImp-C-61C-61_Eq__DataOpt arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (TTImp-TTImp-C-47C-61_Eq__DataOpt arg-438 arg-439)))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--9562-7786-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--9562-7787-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--9638-7884-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--9638-7884-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--8909-7254 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-7335) (Hash-Core-hash_Hashable__Name arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Name arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-7335) (Hash-Core-hash_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40TermC-32C-36varsC-41 'erased arg-7336 arg-7337)))) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--6540-12068 (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--10727-12021 (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--10759-11974 (lambda (arg-0 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--10726-11909 (lambda (arg-0 arg-1 arg-2 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--10759-11974 arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-7 arg-8 arg-6 e-2 (Parser-TTImp-n--6540-11875-spanMap arg-0 arg-1 arg-2 arg-3 'erased 'erased arg-8 arg-7))))))))
(define Parser-TTImp-case--9883-11241 (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--9883-11199 (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--7235-8869 (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--6540-11875-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--10726-11909 arg-0 arg-1 arg-2 arg-3 'erased 'erased e-2 e-3 arg-6 (arg-6 e-2)))))))))
(define Parser-TTImp-n--9310-10625-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-10645) (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--7250-10176-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--7250-10176-mkPi arg-0 arg-1 arg-2 arg-3 e-7 e-3))))))))))))
(define Parser-TTImp-n--6540-11876-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--10727-12021 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--9307-10360-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--9307-10360-getFn arg-0 arg-1 arg-2 arg-3 arg-4 e-3))) ((9) (let ((e-6 (vector-ref sc0 2))) (Parser-TTImp-n--9307-10360-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--10200-11299-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 (_-11329) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) arg-2 (vector 1 n) ty)) ns)))))))))))))))))
(define Parser-TTImp-n--7240-9266-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--7240-9266-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
(define Parser-TTImp-n--7225-8128-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--7225-8128-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--7225-8128-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--9310-10624-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--9310-10624-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 (_-7712) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7720) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-7700) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-7688) (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 (_-10224) (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--7250-10176-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 (_-10310) (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 (_-10333) (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 (_-7778) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-7766) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-7754) (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 (_-8522) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (e) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-8538) (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 (_-9920) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rule) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9935) (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 (_-9754) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-9763) (vector 8 1 0 (vector 5 ) (lambda (_-9772) (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 (_-9793) (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 (_-11153) (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 (_-11177) (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 (_-11038) (vector 8 1 0 (vector 5 ) (lambda (_-11047) (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 (_-11086) (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 (_-11128) (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 (_-11484) (vector 8 1 0 (vector 5 ) (lambda (_-11493) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 0 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-11519) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-11527) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-8794) (vector 7 1 (Parser-TTImp-expr arg-0 arg-2) (lambda () (lambda (ty) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-8809) (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 (_-8733) (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 (_-10548) (vector 8 1 0 (vector 5 ) (lambda (_-10557) (vector 7 1 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10572) (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--9307-10360-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 (_-10448) (vector 8 1 0 (Common-Rule-Parser-location (vector "Parser.Lexer.Source.Token" )) (lambda (wstart) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-10465) (vector 7 0 (Parser-TTImp-expr arg-1 arg-2) (lambda () (lambda (wval) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10481) (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--9307-10360-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 (_-10400) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-10408) (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--9307-10360-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 (_-11612) (vector 8 1 0 (vector 5 ) (lambda (_-11621) (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 (_-9453) (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 (_-9486) (vector 8 1 0 (vector 5 ) (lambda (_-9495) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (val) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9510) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9518) (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 (_-9381) (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 (_-9397) (vector 7 0 (Source-Rule-Parser-keyword "in") (lambda () (lambda (_-9405) (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 (_-10124) (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 (_-10082) (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 (_-10040) (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 (_-9998) (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 (_-9302) (vector 7 0 (Parser-TTImp-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-9318) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-9327) (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--7240-9266-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 (_-9133) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-9149) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-9158) (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 (_-8333) (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 (_-8386) (vector 8 1 0 (vector 5 ) (lambda (_-8395) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8411) (vector 0 (vector 0 (vector 1 (vector 1 x)) tm))))))))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8355) (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 (_-8275) (vector 8 1 0 (vector 5 ) (lambda (_-8284) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (tm) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8300) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (_-9008) (vector 8 1 0 (vector 5 ) (lambda (_-9017) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (_-9057) (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 (_-7904) (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 (_-7890) (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 (_-7876) (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 (_-7862) (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 (_-7847) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-pragma "extern") (lambda () (lambda (_-7833) (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 (_-11402) (vector 8 1 0 (vector 5 ) (lambda (_-11411) (vector 7 0 (Parser-TTImp-n--10200-11299-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11429) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11437) (vector 0 fs)))))))))))))) (lambda () (vector 7 1 (Parser-TTImp-n--10200-11299-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11388) (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 (_-9893) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9879) (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 (_-9893) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-9879) (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 (_-9210) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-9226) (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 (_-11650) (vector 8 1 0 (vector 5 ) (lambda (_-11659) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-11675) (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 (_-10834) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "uniqueSearch") (lambda () (lambda (_-10822) (vector 0 (vector 2 ))))) (lambda () (vector 7 0 (Source-Rule-Parser-exactIdent "search") (lambda () (lambda (_-10797) (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 (_-10857) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10874) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (ty) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-10889) (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 (_-10908) (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 (_-10929) (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 (_-12413) (vector 7 0 (Source-Rule-Parser-exactIdent "t") (lambda () (lambda (_-12421) (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 (_-12380) (vector 7 0 (Source-Rule-Parser-exactIdent "s") (lambda () (lambda (_-12388) (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 (_-12347) (vector 7 0 (Source-Rule-Parser-exactIdent "es") (lambda () (lambda (_-12355) (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 (_-12302) (vector 7 0 (Source-Rule-Parser-exactIdent "gd") (lambda () (lambda (_-12310) (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 (_-12269) (vector 7 0 (Source-Rule-Parser-exactIdent "missing") (lambda () (lambda (_-12277) (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 (_-12236) (vector 7 0 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-12244) (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 (_-12203) (vector 7 0 (Source-Rule-Parser-exactIdent "di") (lambda () (lambda (_-12211) (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 (_-12180) (vector 7 1 (Source-Rule-Parser-exactIdent "q") (lambda () (lambda (_-12188) (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--6540-12068 e-6 e-5 e-4 e-3 (Parser-TTImp-n--6540-11875-spanMap e-6 e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-TTImp-n--6540-11876-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--9310-10625-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--9310-10624-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 (_-9576) (vector 7 0 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (scr) (vector 7 1 (Source-Rule-Parser-keyword "of") (lambda () (lambda (_-9591) (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 (_-9694) (vector 8 1 0 (Source-Rule-Parser-continue arg-1) (lambda (_-9702) (vector 7 1 (Parser-TTImp-expr arg-0 arg-1) (lambda () (lambda (rhs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9717) (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 (_-9660) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-9668) (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 (_-8062) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-8047) (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 (_-8666) (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 (_-8912) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-8920) (vector 8 1 0 (vector 5 ) (lambda (_-8929) (vector 7 0 (Parser-TTImp-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-8945) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-8954) (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 (_-7616) (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 (_-7581) (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 (_-7545) (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 (_-7507) (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 (_-7428) (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 (_-8459) (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 (_-8244) (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 (_-8221) (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--7225-8128-applyExpImp arg-1 arg-0 start end f args)))))))))))))))))
(define GenerateDef-Interactive-TTImp-case--12555-7417 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--12539-7308 (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--12555-7417 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--12318-7123 (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--12054-7027 (lambda (arg-0 arg-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--12054-6875-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--12054-6873-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--12068-6962 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12054-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
(define GenerateDef-Interactive-TTImp-case--12068-6904 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12054-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))
(define GenerateDef-Interactive-TTImp-case--11635-6574 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--11274-6199-updateRHS arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-7 e-5) (vector 0 )))))))))))))))))))))))))
(define GenerateDef-Interactive-TTImp-case--11531-6497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--11635-6574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--11274-6200-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--11462-6411 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--11635-6574 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11274-6200-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--11418-6356 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--11635-6574 arg-0 arg-1 arg-2 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--11274-6200-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--11387-6324 (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--11418-6356 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--11274-6302 (lambda (arg-0 arg-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--11418-6356 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--11205-6145 (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--11200-6132 (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--12054-6873-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--11274-6199-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--12054-6875-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--12068-6904 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-1 arg-8))))) ((16) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (GenerateDef-Interactive-TTImp-case--12068-6962 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--12054-6875-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--12054-6875-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--12054-6875-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--12054-6875-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--11234-6160-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--12054-6874-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--12054-6874-fixNames arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-3) (GenerateDef-Interactive-TTImp-n--12054-6874-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--12054-6874-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--12054-6874-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--11274-6200-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--11274-6200-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--11234-6160-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--12054-6875-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--12054-6873-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--12555-7417 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11200-6132 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11418-6356 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--14731-10859 (lambda (arg-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--14750-10792 (lambda (arg-0 arg-1 arg-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--14741-10732 (lambda (arg-0 arg-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--14599-10633 (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--14343-10388 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9668-10355 (lambda (arg-0 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--14343-10388 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--14169-10276 (lambda (arg-0 arg-1 arg-2 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--14160-10204 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--13636-10088 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13699-9895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13636-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 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--13699-9895 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--13466-9740 (lambda (arg-0 arg-1 arg-2 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--13636-9787 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--13636-10088 arg-0 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--13636-10088 arg-0 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--13636-10088 arg-0 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--12601-9288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--12567-8784-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--12567-8784-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--12683-9038 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--12683-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 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--12616-8850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--12683-8928 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--12683-9038 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--12600-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) (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--12616-8850 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11554-8639 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12) (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--11554-7887-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--12308-8580 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11554-7886-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--11584-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) (let ((sc0 arg-15)) (let ((e-2 (vector-ref sc0 1))) (let ((e-3 (vector-ref sc0 2))) (ExprSearch-Interactive-TTImp-case--12308-8580 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--11583-8358 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--11554-7885-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--11583-8228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--11554-7885-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--11583-8098 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--11554-7885-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--11293-7663 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11283-7626 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11293-7663 arg-0 arg-1 arg-2 arg-3 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--10965-7490 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--10965-7414 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10919-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) (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) (Context-Core-holeInit 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--10965-7490 arg-0 arg-1 arg-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--10880-7310 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--10919-7343 arg-0 arg-1 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--10464-6974 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10242-6895 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--10464-6974 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10242-6739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--10195-6702 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--10242-6739 arg-0 arg-1 arg-2 arg-3 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--10464-6974 arg-0 arg-1 arg-2 arg-3 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--10172-6643 (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--9924-6497 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-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--9876-6418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9800-6385 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9876-6418 arg-0 arg-1 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--9782-6317 (lambda (arg-0 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--9876-6418 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--9672-6234 (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--11253-7614-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--11293-7663 arg-0 arg-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--11554-7887-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--11584-8540 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--14731-10721-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--9668-10193-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--14588-10588-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--14588-10588-getLHS arg-0 arg-1 'erased e-4)) ((4) (ExprSearch-Interactive-TTImp-n--14588-10588-getLHS arg-0 arg-1 'erased e-4))(else (ExprSearch-Interactive-TTImp-case--14599-10633 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3))))))))(else (ExprSearch-Interactive-TTImp-case--14599-10633 arg-0 arg-1 'erased arg-3 (TT-Core-getFn 'erased arg-3)))))))
(define ExprSearch-Interactive-TTImp-n--12567-8784-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--12567-8783-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--12567-8784-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--12567-8784-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--12567-8783-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--12567-8783-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--12567-8783-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--12567-8783-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--12567-8783-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--12616-8850 arg-0 arg-1 arg-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--11554-7885-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--11554-7887-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--11554-7887-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7887-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--11554-7887-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7886-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--11583-8098 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--11583-8358 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--11554-7885-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--11554-7885-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--11583-8358 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--11554-7885-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--11554-7885-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--11583-8228 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--11583-8358 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--11554-7885-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--11554-7885-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--11583-8358 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--11554-7885-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--11554-7885-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--11583-8358 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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7885-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--11554-7887-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--13466-9740 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--13466-9740 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--13466-9740 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--13466-9740 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--11253-7614-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--10195-6702 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--12567-8784-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--9782-6317 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--9668-10193-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--14343-10388 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--10880-7310 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--14588-10588-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--9672-6234 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--14731-10721-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--10172-6643 '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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11999-9305 (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--11795-9168 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--11757-9113 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--11795-9168 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--11515-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) (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--11372-8872 (lambda (arg-0 arg-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--11372-8787 (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--11134-8603 (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--11134-8547 (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--11082-8517 (lambda (arg-0 arg-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--11065-8471 (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--11082-8517 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-3 (let ((sc2 e-5)) (let ((e-0 (vector-ref sc2 1))) e-0)))) eta-0)))))))))))))
(define CaseSplit-Interactive-TTImp-case--10991-8426 (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--10903-8329 (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--10725-8189 (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--10712-8169 (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--10725-8189 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--10635-8107 (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--10474-7989 (lambda (arg-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--10224-7861 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--10223-7752 (lambda (arg-0 arg-1 arg-2 arg-3 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--10213-7713-lookupName 'erased arg-1 arg-2 arg-3 arg-4 arg-5 'erased arg-10 arg-9))))))
(define CaseSplit-Interactive-TTImp-case--10125-7654 (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--9936-7495 (lambda (arg-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 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) arg-5 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) 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))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-10 e-11)))))))))))))))))(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--9893-7455 (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))) (let ((act-25 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-2 eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-12 (vector-ref sc4 1))) (vector 0 e-12))) (else (let ((e-12 (vector-ref sc4 1))) (let ((act-26 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) e-8) eta-0))) (let ((sc5 act-26)) (case (vector-ref sc5 0) ((0) (let ((e-13 (vector-ref sc5 1))) (vector 0 e-13))) (else (let ((e-13 (vector-ref sc5 1))) (vector 1 (vector 1 (vector 0 arg-3 (vector 0 e-12 e-13))))))))))))))))(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--9884-7413 (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))) (let ((act-27 (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) e-3 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-1) (lambda (eta-2) (Context-Core-toFullNames 'erased arg-2 (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) eta-1 eta-2))) e-8) 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 1 (vector 0 e-2 (vector 0 e-15 e-16))))))))))))))))(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--9841-7385 (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--9665-7247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9637-7214 (lambda (arg-0 arg-1 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--10125-7639-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--10213-7713-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--10223-7752 '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--10213-7715-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--10213-7714-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--10213-7713-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--10712-8169 e-1 e-0 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--10125-7639-mkVarN e-2 e-3 arg-3 arg-2 arg-1 e-2 arg-2))) (CaseSplit-Interactive-TTImp-case--10125-7654 e-2 e-3 arg-3 arg-2 arg-1 var (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--10903-8329 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--11795-9168 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--9841-7385 '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--10213-7714-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--10213-7715-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--11082-8517 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--9637-7214 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--9884-7413 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--13108-5464 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--7611-5018-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--13017-5350 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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--7611-5018-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--13108-5464 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--7611-5017-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--12955-5276 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13017-5350 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--7611-5235 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--12955-5276 arg-0 arg-1 arg-2 arg-3 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--12728-5119 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--7611-5018-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--12565-4918 (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--12345-4717 (lambda (arg-0 arg-1 arg-2 arg-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--12311-4687 (lambda (arg-0 arg-1 arg-2 arg-3 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--11743-4580 (lambda (arg-0 arg-1 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--11743-4177-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--11768-4478 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 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 )))))))))(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--11768-4362 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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))) (lambda (eta-0) (let ((act-24 (let ((sc2 (Prelude-not (let ((sc3 e-3)) (let ((e-0 (vector-ref sc3 1))) e-0))))) (cond ((equal? sc2 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 (vector 1 (vector 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 )))))))))(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--11767-4197 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--11743-4176-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--11743-4176-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--11351-4081 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11396-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 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--11386-3866 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--11396-3907 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--11091-3670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--10831-3609 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--11091-3670 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10831-3404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10316-3060 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--9755-2373-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--9755-2373-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--9782-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 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--9755-2373-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--9755-2373-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--9970-2647 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--9755-2371-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--9876-2585 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--9755-2371-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--9781-2507 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--9876-2585 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9436-2111 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--9370-2042-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--9420-2058 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9370-2042-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--9370-2042-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--9239-1898 (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--9192-1871 (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--9239-1898 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--8933-1688 (lambda (arg-0 arg-1 arg-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--8933-1661-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--8933-1661-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--8933-1661-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--8933-1661-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--8933-1607 (lambda (arg-0 arg-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--8827-1524 (lambda (arg-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--8346-1158 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--8145-1048 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--8346-1158 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--8145-968 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--8094-878 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (lambda (eta-1) (Unify-Core-unifyD_Unify__Term vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337 eta-1)))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (lambda (eta-1) (Unify-Core-unifyWithLazyD_Unify__Term vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348 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--8346-1158 arg-0 arg-1 arg-2 arg-3 arg-4 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--8046-843 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--8094-878 arg-0 arg-1 arg-2 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--8005-769 (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--7831-692 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--7767-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 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--11351-3854-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--11396-3907 arg-0 arg-1 arg-2 arg-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--9370-2042-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--9420-2058 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-10 arg-11)))))))))
(define AutoSearch-Core-n--7611-5018-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--12728-5119 arg-0 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--7611-5017-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--12728-5119 arg-0 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--7611-5017-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--12728-5119 arg-0 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--7611-5017-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--8933-1661-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--8000-761-impl (lambda (arg-0 arg-1 arg-2 arg-3) (AutoSearch-Core-case--8005-769 'erased arg-1 'erased arg-3 (let ((sc0 arg-3)) (let ((e-3 (vector-ref sc0 3))) e-3)))))
(define AutoSearch-Core-n--9755-2373-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--9755-2372-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--9782-2892 arg-0 arg-1 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--9755-2369-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--9755-2372-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--9755-2372-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--9755-2372-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--9755-2372-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--9755-2372-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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--9876-2585 arg-0 arg-1 arg-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--11743-4176-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--11767-4197 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-12 arg-13)))))))))
(define AutoSearch-Core-n--11743-4177-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--11743-4177-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--11743-4176-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--11743-4177-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--11743-4177-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 ((act-25 (let ((sc6 (Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 30 (vector 0 ) arg-8 e-22 e-23 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (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))))))))))) ((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 ((act-25 (let ((sc6 (Prelude-not (let ((sc7 e-3)) (let ((e-0 (vector-ref sc7 1))) e-0))))) (cond ((equal? sc6 0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 29 (vector 0 ) arg-8 (vector 0 ) arg-5) eta-0)) (else (vector 1 (vector 0 ))))))) (let ((sc6 act-25)) (case (vector-ref sc6 0) ((0) (let ((e-4 (vector-ref sc6 1))) (vector 0 e-4))) (else (vector 1 (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 (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--9755-2370-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--9755-2370-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--9755-2371-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--9755-2370-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--9755-2369-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--7611-5017-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--9370-2042-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--12955-5276 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--12955-5276 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--11351-3854-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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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--10831-3404 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-7328) (lambda (arg-7330) (lambda (arg-7332) (lambda (arg-7333) (lambda (arg-7334) (lambda (arg-7336) (lambda (arg-7337) (Unify-Core-unifyD_Unify__NF vars arg-7328 arg-7330 arg-7332 arg-7333 arg-7334 arg-7336 arg-7337))))))))) (lambda (vars) (lambda (arg-7339) (lambda (arg-7341) (lambda (arg-7343) (lambda (arg-7344) (lambda (arg-7345) (lambda (arg-7347) (lambda (arg-7348) (Unify-Core-unifyWithLazyD_Unify__NF vars arg-7339 arg-7341 arg-7343 arg-7344 arg-7345 arg-7347 arg-7348)))))))))) 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--11091-3670 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--9755-2373-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--8094-878 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) (Context-Core-holeInit 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--8000-761-impl 'erased arg-1 'erased eta-0))) arg-1) (List-Data-filter 'erased (lambda (eta-0) (AutoSearch-Core-n--8000-761-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--9192-1871 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--8933-1688 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--8933-1688 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--11743-4580 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--12246-8101 (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--12228-8089 (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--12246-8101 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--12165-8031 (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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))) (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--11758-7851 (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--11758-7799-toArgExp arg-0 arg-1 arg-2 arg-3 arg-4 'erased eta-1)) (CompileExpr-Compiler-n--11758-7800-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))))
(define CompileExpr-Compiler-case--11758-7779 (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--11758-7719 (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--11758-7669-toArgExp arg-0 arg-1 arg-2 arg-3 'erased eta-1)) (CompileExpr-Compiler-n--11758-7670-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3))))))))))))))))
(define CompileExpr-Compiler-case--11367-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) (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--11163-7267 (lambda (arg-0 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--11023-7030 (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--10894-6866 (lambda (arg-0 arg-1 arg-2 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--10875-6826 (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--10863-6811 (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--10713-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) (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--10693-6671 (lambda (arg-0 arg-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--10681-6655 (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--10693-6671 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--10628-6615 (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--9371-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 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--10214-6285 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9371-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) (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--10214-6285 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--9362-6020 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9362-5891-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--9831-5917 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9362-5891-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--9362-5891-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--9528-5676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--9450-5628 (lambda (arg-0 arg-1 arg-2 arg-3 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--9528-5676 arg-0 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--9356-5511-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--9417-5562 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--9450-5628 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--9450-5628 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--9356-5539 (lambda (arg-0 arg-1 arg-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--9417-5562 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--9221-5404 (lambda (arg-0 arg-1 arg-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--8765-5354 (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--8762-5290 (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--8609-4881 (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--8533-4712 (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--8140-4360 (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--8110-4339 (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--8140-4360 arg-0 arg-1 arg-2 arg-3 arg-4 e-2 e-3 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-4 arg-3)))))))
(define CompileExpr-Compiler-case--8017-4245 (lambda (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--7998-4231-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--7998-4231-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--7889-4147 (lambda (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--7880-4125-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--7449-3742 (lambda (arg-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--7420-3727 (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--7449-3742 '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--8609-4773-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--11758-7799-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--11758-7669-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--9362-5891-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--9831-5917 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--7681-3946-mkLocal (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (vector 0 arg-5 arg-4)))
(define CompileExpr-Compiler-n--7681-3947-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--7880-4126-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--7880-4126-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--7880-4125-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--7880-4125-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--7889-4147 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--11758-7800-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--11758-7800-getVars arg-0 arg-1 arg-2 arg-3 arg-4 'erased 'erased e-3)))))))))
(define CompileExpr-Compiler-n--11758-7670-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--11758-7670-getVars arg-0 arg-1 arg-2 arg-3 'erased 'erased e-3)))))))))
(define CompileExpr-Compiler-n--7998-4231-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--8017-4245 'erased arg-1 arg-2 arg-3 arg-4 arg-5 e-2 e-3 arg-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Nat arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Nat arg-438 arg-439)))) arg-6 arg-5)))))))))
(define CompileExpr-Compiler-n--9356-5511-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--7777-4044-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--7777-4044-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--7777-4066-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--10214-6285 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--9371-6461 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) (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--8762-5290 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--8765-5354 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--11758-7719 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--11758-7851 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--7449-3742 '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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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--8533-4712 '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--12246-8101 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--8110-4339 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--10628-6615 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--10693-6671 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--9362-5891-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--7777-4044-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--7777-4066-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--7681-3947-mkApp arg-0 arg-4 arg-3 arg-1 arg-3 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CompileExpr-Compiler-n--7681-3946-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--7998-4231-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--9417-5562 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))) (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-3443) (Prelude-map_Functor__Maybe 'erased 'erased func arg-3443))))) (lambda (a) (lambda (arg-3510) (Prelude-pure_Applicative__Maybe 'erased arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (Prelude-C-60C-42C-62_Applicative__Maybe 'erased 'erased arg-3511 arg-3513)))))) (lambda (eta-0) (CompileExpr-Compiler-n--8609-4773-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--7880-4126-keepArg arg-0 arg-4 arg-3 arg-2 arg-1 'erased fnC-39))))
(define Directory-Core-case--6218-1196 (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--6218-1069-findIpkgFileC-39 e-1 "" eta-0))) act-24)))) (else (lambda (eta-0) (vector 0 )))))))
(define Directory-Core-case--6256-1143 (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--6218-1069-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--6231-1105 (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--6256-1143 arg-0 arg-1 arg-2 arg-3 (Path-Utils-splitParent arg-1)))))))
(define Directory-Core-case--6219-1083 (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--6231-1105 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (Path-Utils-extension f) (vector 1 "ipkg"))) e-2))))) (else (lambda (eta-0) (vector 0 )))))))
(define Directory-Core-case--6163-1029 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--6117-985 (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--6049-918 (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--5977-867 (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--5907-825 (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0))(else (lambda (eta-0) arg-2))))))(else (lambda (eta-0) arg-2))))))
(define Directory-Core-case--5907-801 (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--5885-780 (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--5907-801 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))(else act-24)))))(else act-24))))))))))
(define Directory-Core-case--5878-758 (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--5907-801 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))(else act-25)))))(else act-25))))))))))))))
(define Directory-Core-case--5834-722 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1))))))
(define Directory-Core-case--5747-659 (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--5747-637 (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--5653-575 (lambda (arg-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--5580-505 (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--5519-450 (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--5424-364 (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--5403-340 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--5349-290 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--6218-1069-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--6231-1105 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--5747-637 arg-2 arg-1 arg-0 sdir (Path-Utils-isAbsolute arg-2)))) (Directory-Core-case--5747-659 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--5878-758 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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--6218-1069-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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)) "3a41ccb61")))
(define Version-Idris-with--1696-6139 (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--1713-6209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Version-Idris-n--1713-6165-showTag arg-0 arg-1 arg-2 arg-3 arg-4)) (else "")))))
(define Version-Idris-case--1729-6169 (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--1713-6165-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--1696-6139 (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--1713-6165-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--11340-6112 (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-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 arg-2 e-3 arg-3 e-5 e-6)))))))))
(define Syntax-Idris-case--11339-6073 (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-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 arg-2 e-3 arg-3 e-5 e-6)))))))))
(define Syntax-Idris-case--10961-5684 (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--10120-4957 (lambda (arg-0 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--10119-4905 (lambda (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--9340-4578 (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--9340-4448-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--9340-4385-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--11236-5992-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--11236-5992-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--11235-5950-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--11235-5950-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--11478-6177-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--11478-6169-goPTerm arg-0 e-1) eta-0))))(else (lambda (eta-0) (vector 1 arg-1)))))))
(define Syntax-Idris-n--11478-6181-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--11478-6169-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11478-6181-goPairedPTerms arg-0 'erased e-3) eta-0))))))))))))
(define Syntax-Idris-n--11478-6191-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--11478-6174-goPTypeDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6191-goPTypeDecls arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6174-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--11478-6169-goPTerm arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6180-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--11478-6169-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6180-goPTerms arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6169-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--11478-6177-goPiInfo arg-0 e-4) eta-3)) (lambda (eta-3) (vector 1 e-5)) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-6) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6177-goPiInfo arg-0 e-10) eta-3)) (lambda (eta-3) (vector 1 e-11)) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-16) eta-4)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-17) eta-3)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-18) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-19) eta-1)) (Syntax-Idris-n--11478-6185-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--11478-6169-goPTerm arg-0 e-22) eta-1)) (Syntax-Idris-n--11478-6185-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--11478-6187-goPDecls arg-0 e-25) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6188-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--11478-6169-goPTerm arg-0 e-30) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-33) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-36) eta-2)) (lambda (eta-2) (vector 1 e-37)) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-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--11478-6169-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--11478-6169-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--11478-6169-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--11478-6173-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--11478-6169-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--11478-6169-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--11478-6169-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--11478-6169-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--11478-6169-goPTerm arg-0 e-73) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-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--11478-6169-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--11478-6169-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--11478-6169-goPTerm arg-0 e-85) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-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--11478-6184-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--11478-6169-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--11478-6169-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--11478-6180-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--11478-6169-goPTerm arg-0 e-98) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-101) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-102) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-106) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-107) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-110) eta-1)) (Syntax-Idris-n--11478-6184-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--11478-6169-goPTerm arg-0 e-113) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-116) eta-2)) (Syntax-Idris-n--11478-6179-goMPTerm arg-0 e-117) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-120) eta-1)) (Syntax-Idris-n--11478-6179-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--11478-6169-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--11478-6169-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--11478-6169-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--11478-6190-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--11478-6178-goPFnOpt arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6190-goPFnOpts arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6178-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--11478-6180-goPTerms arg-0 e-1) eta-0))))))))
(define Syntax-Idris-n--11478-6189-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--11478-6176-goPField arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6189-goPFields arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6188-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--11478-6170-goPFieldUpdate arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6188-goPFieldUpdates arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6170-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--11478-6169-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--11478-6169-goPTerm arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6176-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--11478-6177-goPiInfo arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-4) eta-0))))))))))
(define Syntax-Idris-n--11478-6184-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--11478-6171-goPDo arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6184-goPDos arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6171-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--11478-6169-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--11478-6169-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--11478-6169-goPTerm arg-0 e-6) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-7) eta-1)) (Syntax-Idris-n--11478-6185-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--11478-6169-goPTerm arg-0 e-12) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-15) eta-3)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-16) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-17) eta-1)) (Syntax-Idris-n--11478-6185-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--11478-6187-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--11478-6169-goPTerm arg-0 e-22) eta-0)))))))))
(define Syntax-Idris-n--11478-6187-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--11478-6173-goPDecl arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6187-goPDecls arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6173-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--11478-6190-goPFnOpts arg-0 e-3) eta-1)) (Syntax-Idris-n--11478-6174-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--11478-6185-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--11478-6175-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--11478-6181-goPairedPTerms arg-0 'erased e-11) eta-1)) (Syntax-Idris-n--11478-6187-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--11478-6181-goPairedPTerms arg-0 'erased e-14) eta-1)) (Syntax-Idris-n--11478-6187-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--11478-6169-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--11478-6181-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--11478-6181-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--11478-6187-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--11478-6182-go3TupledPTerms arg-0 'erased 'erased e-31) eta-6)) (Syntax-Idris-n--11478-6181-goPairedPTerms arg-0 'erased e-32) eta-5)) (lambda (eta-5) (vector 1 e-33)) eta-4)) (Syntax-Idris-n--11478-6180-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--11478-6186-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--11478-6183-go4TupledPTerms arg-0 'erased 'erased e-41) eta-2)) (lambda (eta-2) (vector 1 e-42)) eta-1)) (Syntax-Idris-n--11478-6189-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--11478-6187-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--11478-6187-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--11478-6169-goPTerm arg-0 e-55) eta-1)) (Syntax-Idris-n--11478-6169-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--11478-6169-goPTerm arg-0 e-58) eta-0))))) (else (lambda (eta-0) (vector 1 arg-1)))))))
(define Syntax-Idris-n--11478-6175-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--11478-6169-goPTerm arg-0 e-2) eta-2)) (lambda (eta-2) (vector 1 e-3)) eta-1)) (Syntax-Idris-n--11478-6191-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--11478-6169-goPTerm arg-0 e-7) eta-0))))))))))
(define Syntax-Idris-n--11478-6185-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--11478-6172-goPClause arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6185-goPClauses arg-0 e-3) eta-0)))))))))
(define Syntax-Idris-n--11478-6172-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--11478-6169-goPTerm arg-0 e-1) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-2) eta-1)) (Syntax-Idris-n--11478-6187-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--11478-6169-goPTerm arg-0 e-5) eta-3)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-6) eta-2)) (lambda (eta-2) (vector 1 e-7)) eta-1)) (Syntax-Idris-n--11478-6185-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--11478-6169-goPTerm arg-0 e-10) eta-0)))))))))
(define Syntax-Idris-n--11478-6179-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--11478-6169-goPTerm arg-0 e-2) eta-0))))))))
(define Syntax-Idris-n--11478-6186-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--11478-6187-goPDecls arg-0 e-2) eta-0))))))))
(define Syntax-Idris-n--11478-6183-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--11478-6177-goPiInfo arg-0 e-14) eta-2)) (Syntax-Idris-n--11478-6169-goPTerm arg-0 e-15) eta-1)) (Syntax-Idris-n--11478-6183-go4TupledPTerms arg-0 'erased 'erased e-3) eta-0))))))))))))))))))
(define Syntax-Idris-n--11478-6182-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--11478-6169-goPTerm arg-0 e-11) eta-1)) (Syntax-Idris-n--11478-6182-go3TupledPTerms arg-0 'erased 'erased e-3) eta-0)))))))))))))))
(define Syntax-Idris-n--8799-3681-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--9340-4891-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--10119-4905 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--9340-4892-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--10120-4957 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Syntax-Idris-toBuf_TTC__Fixity arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__Fixity arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 (List-Data-filter 'erased (lambda (n) (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (Builtin-fst 'erased 'erased n) (let ((sc2 arg-1)) (let ((e-3 (vector-ref sc2 4))) e-3)))) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) arg-0 (let ((sc3 arg-1)) (let ((e-4 (vector-ref sc3 5))) e-4)) ext-0))) (let ((sc3 act-27)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else ((TTImp-TTImp-toBuf_TTC__RawImp arg-0 (let ((sc4 arg-1)) (let ((e-9 (vector-ref sc4 7))) 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))) (let ((e-5 (vector-ref sc0 6))) (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-6 (vector-ref sc1 1))) (vector 0 e-6))) (else (let ((act-25 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 e-1 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 ((act-26 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) arg-0 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 ((act-27 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 eta-1)))) arg-0 e-3 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 ((act-28 (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTC-Core-toBuf_TTC__TotalReq arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2129 eta-1)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2127 eta-1)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2129) (lambda (arg-2130) (Binary-Utils-toBuf_TTC__Bool arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2129 eta-1)))) (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-1))))) arg-2127 arg-2128))) (lambda (arg-2127) (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-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2127 eta-1))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2126 arg-2127))) (lambda (arg-2126) (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-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2126 arg-2127))) (lambda (arg-2126) (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-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2122 arg-2126))) (lambda (arg-2126) (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-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-2)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-2)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-2))))) arg-2126 arg-2127))) (lambda (arg-2126) (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-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2122 arg-2126))) (lambda (arg-2126) (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-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2126 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2122 arg-2126))) (lambda (arg-2126) (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-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-4)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__TotalReq arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-5)))) arg-2127 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-4)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-4))))) arg-2121 arg-2123))) (lambda (arg-2127) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-5)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-5) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-5))))) arg-2127 eta-4))))) arg-2126 eta-3))))) arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-4 eta-0))) (let ((sc5 act-28)) (case (vector-ref sc5 0) ((0) (let ((e-10 (vector-ref sc5 1))) (vector 0 e-10))) (else (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-2)))) arg-2122 arg-2124 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-2)))) arg-2124 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-2) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-3)))) arg-2121 arg-2123 eta-2)))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2126 eta-3)))) arg-2125 eta-2))))) arg-2124 eta-1)))) arg-0 e-5 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Syntax-Idris-n--9340-4385-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--9340-4448-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--9340-4578 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--9340-4891-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--9340-4892-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-6292 arg-6293 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-4 (vector-ref sc1 5))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-8 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-5 e-3 e-6 e-8 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--11236-5992-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-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-6292 arg-6293 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-4 (vector-ref sc1 5))) e-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 (let ((sc2 arg-1)) (let ((e-0 (vector-ref sc2 1))) (let ((e-1 (vector-ref sc2 2))) (let ((e-3 (vector-ref sc2 4))) (let ((e-8 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (vector 0 e-0 e-1 e-5 e-3 e-6 e-8 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--11235-5950-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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Syntax-Idris-toBuf_TTC__Fixity arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Nat arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Syntax-Idris-toBuf_TTC__Fixity arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__Fixity arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__Fixity arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Syntax-Idris-fromBuf_TTC__Fixity arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Nat arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__String arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__String arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__Nat arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Nat arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__String arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__String arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Nat arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Nat arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2125 eta-1))))) arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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) (vector 0 ) 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 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-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2124 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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__RigCount arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-0) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-0)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTC-Core-toBuf_TTC__TotalReq arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (TTC-Core-fromBuf_TTC__TotalReq arg-2129 eta-0)))) arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2127 eta-0)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2129) (lambda (arg-2130) (Binary-Utils-toBuf_TTC__Bool arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__Bool arg-2129 eta-0)))) (vector 0 (lambda (arg-2129) (lambda (arg-2130) (TTImp-TTImp-toBuf_TTC__RawImp arg-2129 arg-2130))) (lambda (arg-2129) (lambda (eta-0) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2129 eta-0))))) arg-2127 arg-2128))) (lambda (arg-2127) (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-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2127 eta-0))))) arg-2125 arg-2126))) (lambda (arg-2125) (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-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2126 arg-2127))) (lambda (arg-2126) (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-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2126 eta-1))))) arg-2125 eta-0))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2126 arg-2127))) (lambda (arg-2126) (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-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2122 arg-2126))) (lambda (arg-2126) (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-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__RigCount arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__RigCount arg-2125 eta-1)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTC-Core-toBuf_TTC__TotalReq arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-1)))) arg-2126 arg-2127))) (lambda (arg-2126) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2126 eta-1)))) (vector 0 (lambda (arg-2126) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2128) (lambda (arg-2129) (Binary-Utils-toBuf_TTC__Bool arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-1)))) (vector 0 (lambda (arg-2128) (lambda (arg-2129) (TTImp-TTImp-toBuf_TTC__RawImp arg-2128 arg-2129))) (lambda (arg-2128) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-1))))) arg-2126 arg-2127))) (lambda (arg-2126) (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-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2126 eta-1))))) arg-2122 arg-2125))) (lambda (arg-2125) (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-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2122 arg-2126))) (lambda (arg-2126) (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-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__RigCount arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTC-Core-fromBuf_TTC__RigCount arg-2126 eta-2)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTC-Core-toBuf_TTC__TotalReq arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-2)))) arg-2122 arg-2126))) (lambda (arg-2126) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2126 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2127) (lambda (arg-2128) (Binary-Utils-toBuf_TTC__Bool arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-2)))) (vector 0 (lambda (arg-2127) (lambda (arg-2128) (TTImp-TTImp-toBuf_TTC__RawImp arg-2127 arg-2128))) (lambda (arg-2127) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-2))))) arg-2122 arg-2126))) (lambda (arg-2126) (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-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2126) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTC-Core-toBuf_TTC__TotalReq arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTC-Core-fromBuf_TTC__TotalReq arg-2127 eta-3)))) arg-2121 arg-2123))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__C-40MaybeC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__TotalReq arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (TTC-Core-fromBuf_TTC__TotalReq arg-2128 eta-4)))) arg-2127 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2127) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2127 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2127) (TTImp-TTImp-toBuf_TTC__RawImp arg-2122 arg-2127))) (lambda (arg-2127) (lambda (eta-3) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2127 eta-3))))) arg-2121 arg-2123))) (lambda (arg-2127) (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-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (Binary-Utils-fromBuf_TTC__Bool arg-2128 eta-4)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__RawImp arg-2121 arg-2123))) (lambda (arg-2128) (lambda (eta-4) (TTImp-TTImp-fromBuf_TTC__RawImp arg-2128 eta-4))))) arg-2127 eta-3))))) arg-2126 eta-2))))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc4 act-28)) (case (vector-ref sc4 0) ((0) (let ((e-2 (vector-ref sc4 1))) (vector 0 e-2))) (else (let ((e-9 (vector-ref sc4 1))) (let ((act-29 (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2124) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2124))) (lambda (arg-2124) (lambda (eta-0) (TTC-Core-fromBuf_TTC__Name arg-2124 eta-0)))) (vector 0 (lambda (arg-2122) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-1)))) arg-2122 arg-2124 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-1) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-1)))) arg-2124 eta-0))))) arg-2121 arg-2123))) (lambda (arg-2124) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2125) (lambda (eta-1) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-1)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2125 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2125) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (TTImp-TTImp-toBuf_TTC__ImpClause arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-2) (TTImp-TTImp-fromBuf_TTC__ImpClause arg-2126 eta-2)))) arg-2125 eta-1))))) arg-2124 eta-0)))) arg-0 ext-0))) (let ((sc5 act-29)) (case (vector-ref sc5 0) ((0) (let ((e-2 (vector-ref sc5 1))) (vector 0 e-2))) (else (let ((e-10 (vector-ref sc5 1))) (vector 1 (vector 0 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))))))))))))))))))))))
(define 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-2121) (lambda (arg-2123) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-0))))))
(define Syntax-Idris-__Impl_TTC_IFaceInfo (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__IFaceInfo arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__IFaceInfo arg-2124 eta-0))))))
(define Syntax-Idris-__Impl_TTC_Fixity (lambda () (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Syntax-Idris-toBuf_TTC__Fixity arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__Fixity arg-2124 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-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__SyntaxInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-6292 arg-6293 eta-0)))))))
(define Syntax-Idris-__Impl_HasNames_IFaceInfo (lambda () (vector 0 (lambda (arg-6290) (lambda (arg-6291) (lambda (eta-0) (Syntax-Idris-full_HasNames__IFaceInfo arg-6290 arg-6291 eta-0)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-0) (Syntax-Idris-resolved_HasNames__IFaceInfo arg-6292 arg-6293 eta-0)))))))
(define Syntax-Idris-__Impl_HasNames_C-40ANameMapC-32C-36aC-41 (lambda (arg-0 arg-1) (vector 0 (lambda (arg-6290) (lambda (arg-6291) (Syntax-Idris-full_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Syntax-Idris-resolved_HasNames__C-40ANameMapC-32C-36aC-41 'erased arg-1 arg-6292 arg-6293))))))
(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-5 (vector-ref sc0 6))) e-5))))
(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-6 (vector-ref sc0 7))) e-6))))
(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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "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 SyntaxInfo-Syntax-Idris-saveIFaces (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(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))))
(define Import-Syntax-Idris-path (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define IFaceInfo-Syntax-Idris-parents (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define IFaceInfo-Syntax-Idris-params (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define Syntax-Idris-papply (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))) (Syntax-Idris-papply arg-0 (vector 7 arg-0 arg-1 e-2) e-3))))))))
(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-4 (vector-ref sc0 5))) e-4))))
(define Syntax-Idris-mapPTermM (lambda (arg-0 ext-0) (Syntax-Idris-n--11478-6169-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 (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))))
(define Module-Syntax-Idris-imports (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-2 (vector-ref sc0 3))) e-2))))
(define IFaceInfo-Syntax-Idris-implParams (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) e-1))))
(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--8799-3681-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-5 (vector-ref sc0 6))) e-5))))
(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-4 (vector-ref sc0 5))) e-4))))
(define ANameMap-Data-case--2564-3251 (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--2475-3147-update 'erased arg-3 arg-1 arg-2 arg-3 e-2) arg-1)))))))
(define ANameMap-Data-case--2475-3221 (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--2564-3251 'erased arg-2 arg-3 arg-1 e-2 (StringMap-Data-lookup 'erased e-2 arg-2))))))))
(define ANameMap-Data-case--2484-3171 (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--2475-3147-update 'erased arg-1 arg-2 arg-3 arg-6 arg-5)))))))
(define ANameMap-Data-case--2385-3115 (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--2349-3029-matches 'erased arg-1 arg-2 arg-2 eta-0)) e-2)))))))
(define ANameMap-Data-case--2385-3073 (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--2349-3060 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (ANameMap-Data-case--2385-3073 'erased arg-1 arg-2 (ANameMap-Data-lookupExact 'erased arg-2 arg-1))) (else (let ((e-2 (vector-ref sc0 1))) (ANameMap-Data-case--2385-3115 '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--2475-3147-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--2484-3171 '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--2349-3029-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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-0 e-6)))(else 0)))))(else 0)))))(else 0)))))
(define ANameMap-Data-n--2695-3341-insertFrom (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-2 (vector-ref sc0 1))) (let ((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--2695-3341-insertFrom 'erased arg-1 arg-2 arg-3 e-3 (ANameMap-Data-addName 'erased e-6 e-7 arg-5))))))))))))
(define ANameMap-Data-n--2673-3318-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--2673-3318-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-merge (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))) (ANameMap-Data-n--2695-3341-insertFrom 'erased e-2 e-1 arg-2 (NameMap-Data-toList 'erased e-1) arg-2))))))
(define ANameMap-Data-lookupName (lambda (arg-0 arg-1 arg-2) (ANameMap-Data-case--2349-3060 '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--2673-3318-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--2475-3221 '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--10833-8613 (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-5 (vector-ref sc0 6))) (let ((e-6 (vector-ref sc0 7))) (let ((e-7 (vector-ref sc0 8))) (let ((e-8 (vector-ref sc0 9))) (let ((e-9 (vector-ref sc0 10))) (let ((e-10 (vector-ref sc0 11))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6 e-7 e-8 e-9 e-10))))))))))))))
(define SetOptions-Idris-case--10833-8570 (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--10833-8527 (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--10833-8484 (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--10833-8441 (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--10833-8402 (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--10833-8359 (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--10833-8158 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26))))))))))))))))
(define SetOptions-Idris-case--10833-8136 (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--10833-8085 (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--10833-8046 (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--10833-8005 (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--10833-7962 (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--10833-7921 (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))))))) ((19) (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--10833-8158 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))))))))) ((15) (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)))))))) ((17) (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))))))))))))) ((29) (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))))))) ((30) (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))))))) ((27) (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))))))))))) ((28) (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))))))) ((23) (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)))))))) ((24) (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)))))))) ((25) (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)))))))) ((26) (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)))))))) ((14) (let ((e-17 (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-11 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (let ((e-7 (vector-ref sc3 8))) (let ((e-8 (vector-ref sc3 9))) (let ((e-9 (vector-ref sc3 10))) (let ((e-10 (vector-ref sc3 11))) (vector 0 e-0 e-1 e-13 e-12 e-17 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))))))))(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))))))) ((27) (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) ((20) 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) ((19) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--27954-9357 (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--27947-9215 (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--27941-9140 (lambda (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "") 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--27841-8973 (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--27737-8940 (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--27740-8884 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (REPL-Idris-n--27737-8858-getLoad arg-0 (Prelude-length arg-1) arg-2 arg-4)) (else (REPL-Idris-n--27737-8859-fnameCmd arg-0 arg-3 arg-4))))))
(define REPL-Idris-case--25986-8684 (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--25986-8600 (lambda (arg-0 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--25986-8548 (lambda (arg-0 arg-1 arg-2 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--25986-8363 (lambda (arg-0 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Totality arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Totality arg-6292 arg-6293)))) 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--27029-8247 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--25986-8189 (lambda (arg-0 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--27029-8247 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--25986-8062 (lambda (arg-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--25986-7967 (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-6 (vector-ref sc1 7))) e-6))))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (let ((sc1 arg-5)) (let ((e-5 (vector-ref sc1 6))) e-5)) (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--25986-7894 (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (vector 1 arg-0) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
(define REPL-Idris-case--25986-7819 (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--25986-7761 (lambda (arg-0 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--25986-7671 (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--25986-7585 (lambda (arg-0 arg-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--26124-7430 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--26030-7355 (lambda (arg-0 arg-1 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--25986-7229-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--26124-7430 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--25986-7264 (lambda (arg-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--25986-7228-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--25986-7229-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--26124-7430 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--25847-7139 (lambda (arg-0 arg-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--25816-7094 (lambda (arg-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--25702-7004 (lambda (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--25555-6870 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--25339-6677 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase arg-13 arg-14 (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 3 arg-13 arg-14))))))))
(define REPL-Idris-case--25298-6641 (lambda (arg-0 arg-1 arg-2 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 ((w (Strings-Data-lines (MakeClause-IDEMode-Idris-makeWith arg-0 arg-11)))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase e-2 w (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 3 e-2 w)))))))))))
(define REPL-Idris-case--25263-6611 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (REPL-Idris-case--25298-6641 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 e-2 (Unlit-Parser-isLitLine arg-9)))) (else (lambda (eta-0) (vector 1 (vector 1 "Invalid literate Idris"))))))))
(define REPL-Idris-case--21433-6586 (lambda (arg-0 arg-1 arg-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))) (REPL-Idris-case--25263-6611 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-1 _-0 (Unlit-Parser-unlit arg-8 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available"))))))))
(define REPL-Idris-case--25040-6431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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)) (cond ((equal? sc0 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase arg-15 arg-16 (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 4 arg-15 arg-16))))))))
(define REPL-Idris-case--24993-6391 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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 ((c (Strings-Data-lines (MakeClause-IDEMode-Idris-makeCase arg-10 arg-0 arg-13)))) (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (REPL-Idris-updateFile arg-3 (lambda (eta-1) (REPL-Idris-addMadeCase e-2 c (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 4 e-2 c)))))))))))
(define REPL-Idris-case--24952-6357 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (let ((sc0 arg-13)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (REPL-Idris-case--24993-6391 arg-0 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 (Unlit-Parser-isLitLine arg-11)))) (else (lambda (eta-0) (vector 1 (vector 1 "Invalid literate Idris"))))))))
(define REPL-Idris-case--21433-6328 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (let ((sc0 arg-11)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((_-0 (vector 1 e-1))) (REPL-Idris-case--24952-6357 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 (Unlit-Parser-unlit arg-8 e-1))))) (else (lambda (eta-0) (vector 1 (vector 1 "Source line not available"))))))))
(define REPL-Idris-case--24598-6086 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-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--24519-6024 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--24314-5970 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--24519-6024 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--24314-5871 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--24248-5805 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--24519-6024 arg-0 arg-1 arg-2 arg-3 arg-4 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--21433-5753 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--24519-6024 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--23831-5440 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--23770-5377 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--23707-5335 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--23770-5377 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--23627-5288 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--23770-5377 arg-0 arg-1 arg-2 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--23571-5219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--23770-5377 arg-0 arg-1 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--21433-5172 (lambda (arg-0 arg-1 arg-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--23770-5377 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--23116-4960 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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--23116-4857 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--22999-4787 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--22268-4691 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--22999-4787 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--21433-4003-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--22268-4582 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--22484-4462 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 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--22484-4367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--22366-4270 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--22268-4172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--21433-4087 (lambda (arg-0 arg-1 arg-2 arg-3 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--22268-4582 arg-0 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--21433-4003-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--22268-4691 arg-0 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--22072-3930 (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--21433-3909 (lambda (arg-0 arg-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--21910-3806 (lambda (arg-0 arg-1 arg-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--21433-3764 (lambda (arg-0 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--21433-3690 (lambda (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--21433-3628 (lambda (arg-0 arg-1 arg-2 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--21490-3545 (lambda (arg-0 arg-1 arg-2 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--21490-3435 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--21433-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) (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--21490-3435 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--21490-3545 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--21275-3222 (lambda (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--21268-3197-insertInBlank arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-8 arg-7)))))))
(define REPL-Idris-case--21202-3139 (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--21193-3132-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--21108-3066 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (cond ((equal? sc0 0) (vector 1 (REPL-Idris-rtrim arg-2) (vector 1 arg-0 arg-1))) (else (vector 1 arg-0 (REPL-Idris-addClause arg-2 0 arg-1)))))))
(define REPL-Idris-case--21013-2975 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--20999-2951 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--20785-2771 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))))))
(define REPL-Idris-case--20771-2727 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-26)))))))))))))))))))))
(define REPL-Idris-case--20528-2654 (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--20528-2635 (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-0 e-6 e-7 e-8 e-9)))))))))))))
(define REPL-Idris-case--20528-2600 (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))) (vector 0 e-0 arg-0 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
(define REPL-Idris-case--20528-2565 (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))) (vector 0 arg-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
(define REPL-Idris-case--20528-2530 (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--20528-2509 (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--20434-2423 (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--19896-2077 (lambda (arg-0 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 "Compiled: " (CompileExpr-Core-show_Show__CDef e-2))) eta-0))) (vector 1 act-24)))))))))
(define REPL-Idris-n--21193-3132-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--21202-3139 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--27941-9092-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--25986-7229-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--27960-9487-makeSpace (lambda (arg-0) (Prelude-pack (Prelude-take 'erased arg-0 (Stream-Data-repeat 'erased #\ )))))
(define REPL-Idris-n--21268-3197-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--21275-3222 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--27737-8858-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--27737-8859-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--27740-8884 arg-0 e-6 e-7 e-3 arg-2 (Strings-Data-isPrefixOf e-6 arg-2))))))))))))
(define REPL-Idris-n--25657-6923-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--25986-7228-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--21433-4003-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--21433-4003-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--27960-9488-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--27960-9487-makeSpace (Prelude-minus arg-0 (Prelude-length arg-2))) (Strings-Prelude-C-43C-43 arg-3 (Strings-Prelude-C-43C-43 (REPL-Idris-n--27960-9487-makeSpace (Prelude-minus arg-1 (Prelude-length arg-3))) arg-4))))))
(define REPL-Idris-n--27960-9489-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--27960-9488-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--21387-3302-addW (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (let ((sc1 arg-6)) (case (vector-ref sc1 0) ((1) (let ((e-3 (vector-ref sc1 2))) (List-Prelude-C-43C-43 'erased (List-Data-reverse 'erased arg-5) (List-Prelude-C-43C-43 'erased (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Unlit-Parser-relit arg-3 eta-0)) arg-2) e-3)))) (else (vector 0 )))))(else (let ((e-0 (- arg-4 1))) (let ((sc0 arg-6)) (case (vector-ref sc0 0) ((1) (let ((e-6 (vector-ref sc0 1))) (let ((e-7 (vector-ref sc0 2))) (REPL-Idris-n--21387-3302-addW arg-0 arg-1 arg-2 arg-3 e-0 (vector 1 e-6 arg-5) e-7)))) (else (List-Data-reverse 'erased arg-5))))))))))
(define REPL-Idris-n--21268-3198-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--21268-3197-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--21268-3198-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--20999-2951 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Def arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Def arg-6292 arg-6293)))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--19896-2077 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-32 (arg-3672 eta-1))) ((arg-3673 act-32) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-33 (arg-3672 eta-1))) ((arg-3673 act-33) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-33 (arg-3672 eta-1))) ((arg-3673 act-33) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-6290) (lambda (arg-6291) (lambda (eta-3) (Context-Core-full_HasNames__SCCall arg-6290 arg-6291 eta-3)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-3) (Context-Core-resolved_HasNames__SCCall arg-6292 arg-6293 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-35 (arg-3672 eta-2))) ((arg-3673 act-35) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-11 (vector-ref sc2 3))) (let ((e-3 (vector-ref sc2 4))) (let ((e-4 (vector-ref sc2 5))) (let ((e-10 (vector-ref sc2 6))) (let ((e-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-2 e-1 e-11 e-3 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (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-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-3 e-2 e-11 e-4 e-10 e-6 e-7 e-8 e-9)))))))))))))) (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-11 (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-1 e-2 e-3 e-11 e-4 e-6 e-7 e-8 e-9)))))))))))))) (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--20528-2654 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 ((Prelude-putStr 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (Strings-Prelude-C-43C-43 (REPL-Idris-n--27941-9092-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-28 (arg-3672 eta-0))) ((arg-3673 act-28) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "") 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--21193-3132-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--21490-3435 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--21490-3545 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--21433-3690 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-4 (vector-ref sc3 5))) e-4))))) (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--22268-4582 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--21433-4003-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--22268-4691 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--23770-5377 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-4 (vector-ref sc3 5))) e-4))))) (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--24519-6024 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) (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 (REPLOpts-Idris-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (let ((act-25 (unbox arg-2))) (vector 1 act-25)))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((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-23 (let ((sc3 e-6)) (let ((e-4 (vector-ref sc3 5))) e-4))))) (let ((act-26 (REPLOpts-Idris-getSourceLine arg-4 e-22 eta-0))) (let ((sc3 act-26)) (case (vector-ref sc3 0) ((0) (let ((e-2 (vector-ref sc3 1))) (vector 0 e-2))) (else (let ((e-7 (vector-ref sc3 1))) (let ((sc4 e-7)) (case (vector-ref sc4 0) ((1) (let ((e-1 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-1))) ((REPL-Idris-case--24952-6357 e-23 e-22 e-21 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 brack e-1 _-0 (Unlit-Parser-unlit e-5 e-1)) eta-0)))) (else (vector 1 (vector 1 "Source line not available")))))))))))))))))))))))))) (else (let ((e-24 (vector-ref sc0 1))) (let ((e-25 (vector-ref sc0 2))) (let ((e-26 (vector-ref sc0 3))) (lambda (eta-0) (let ((act-24 (REPLOpts-Idris-getLitStyle arg-4 eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 (REPLOpts-Idris-getSourceLine arg-4 e-25 eta-0))) (let ((sc2 act-25)) (case (vector-ref sc2 0) ((0) (let ((e-2 (vector-ref sc2 1))) (vector 0 e-2))) (else (let ((e-6 (vector-ref sc2 1))) (let ((sc3 e-6)) (case (vector-ref sc3 0) ((1) (let ((e-1 (vector-ref sc3 1))) (let ((_-0 (vector 1 e-1))) ((REPL-Idris-case--25263-6611 e-26 e-25 e-24 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-1 _-0 (Unlit-Parser-unlit e-5 e-1)) eta-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--25986-7264 e-1 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 2))) e-11))) 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--25986-7819 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-11 (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 (vector 1 e-4) e-3 e-11 e-10 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 (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--25986-7967 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--27029-8247 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Totality arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Totality arg-6292 arg-6293)))) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--25986-8548 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--27737-8940 arg-0 (REPL-Idris-n--27737-8859-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 (_-8848) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--27841-8973 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-11 (vector-ref sc2 6))) e-11))) (vector 0 )))))))))))))))))))
(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--20771-2727 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--25657-6923-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))) (let ((act-25 (Context-Core-aliasName arg-0 (let ((sc3 e-7)) (let ((e-1 (vector-ref sc3 2))) e-1)) eta-0))) (let ((sc3 act-25)) (case (vector-ref sc3 0) ((0) (let ((e-4 (vector-ref sc3 1))) (vector 0 e-4))) (else (let ((e-8 (vector-ref sc3 1))) (vector 1 (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-8) (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-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))))))) ((3) (let ((e-38 (vector-ref sc1 1))) (let ((e-39 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-38 eta-1)) e-39)) eta-0))))) ((4) (let ((e-40 (vector-ref sc1 1))) (let ((e-41 (vector-ref sc1 2))) (lambda (eta-0) (REPLCommon-Idris-printResult arg-4 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Unlit-Parser-relit e-40 eta-1)) e-41)) 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--20434-2423 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--27960-9489-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--21268-3198-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-addMadeCase (lambda (arg-0 arg-1 arg-2 arg-3) (REPL-Idris-n--21387-3302-addW arg-3 arg-2 arg-1 arg-0 arg-2 (vector 0 ) arg-3)))
(define REPL-Idris-addClause (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 (REPL-Idris-rtrim arg-0) (vector 0 ))) (else (let ((e-3 (vector-ref sc1 1))) (let ((e-4 (vector-ref sc1 2))) (REPL-Idris-case--21108-3066 e-3 e-4 arg-0 ((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-isSpace eta-0))) (Prelude-unpack e-3)))))))))(else (let ((e-0 (- 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-addClause arg-0 e-0 e-7))))) (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--7841-6838 (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--7553-6612 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--7368-6567 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--7553-6612 arg-0 arg-1 arg-2 arg-3 arg-4 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--7368-6457 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--7298-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) (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--7368-6567 arg-0 arg-1 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--7368-6457 arg-0 arg-1 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--7095-6155 (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--7804-6786-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--7804-6786-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--7368-6567 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--7368-6457 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--7095-6155 'erased arg-2 arg-1 (TT-Core-getFnArgs 'erased arg-2))))
(define REPLCommon-Idris-case--10930-6853 (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--10847-6752 (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-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 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-0) (REPLCommon-Idris-getFCLine eta-0)) (Core-Core-getErrorLoc arg-1)) e-7 e-8 e-9)))))))))))))
(define REPLCommon-Idris-case--10847-6716 (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 (vector 0 ) e-7 e-8 e-9)))))))))))))
(define REPLCommon-Idris-case--10767-6671 (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--10598-6506 (lambda (arg-0 arg-1 arg-2 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--10561-6429-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--10561-6429-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--10561-6458 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10598-6506 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--10392-6320 (lambda (arg-0 arg-1 arg-2 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--10355-6243-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--10355-6243-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--10355-6272 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10392-6320 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--10299-6205 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-0) eta-0))) (vector 1 act-24))))(else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define REPLCommon-Idris-case--10228-6139 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10561-6429-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--10355-6243-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-10 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 8))) (let ((e-8 (vector-ref sc2 9))) (let ((e-9 (vector-ref sc2 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-10 (vector 0 ) e-7 e-8 e-9)))))))))))))) (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-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-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 e-11 e-4 e-10 (Prelude-map_Functor__Maybe 'erased 'erased (lambda (eta-1) (REPLCommon-Idris-getFCLine eta-1)) (Core-Core-getErrorLoc e-2)) e-7 e-8 e-9)))))))))))))) (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--10299-6205 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) 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--10228-6139 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) 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--10561-6458 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) 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--10355-6272 arg-3 arg-2 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) ext-0))))))))
(define REPLOpts-Idris-case--9412-2515 (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-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 e-7 arg-0 e-9)))))))))))))
(define REPLOpts-Idris-case--9312-2423 (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))) (vector 0 e-0 e-1 e-2 e-3 arg-0 e-5 e-6 e-7 e-8 e-9)))))))))))))
(define REPLOpts-Idris-case--9267-2389 (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-4 (vector-ref sc0 5))) (let ((e-5 (vector-ref sc0 6))) (let ((e-6 (vector-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 (REPLOpts-Idris-n--9267-2354-litStyle arg-0 arg-1 arg-0) e-4 e-5 e-6 e-7 e-8 e-9))))))))))))
(define REPLOpts-Idris-case--9217-2336 (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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 e-2 e-3 e-4 e-5 e-6 arg-0 e-8 e-9)))))))))))))
(define REPLOpts-Idris-n--9267-2354-litStyle (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))) (Unlit-Parser-isLitFile e-2)))))))
(define REPLOpts-Idris-n--9184-2280-litStyle (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-3)) (case (vector-ref sc0 0) ((0) (vector 0 )) (else (let ((e-2 (vector-ref sc0 1))) (Unlit-Parser-isLitFile e-2)))))))
(define REPLOpts-Idris-n--9362-2441-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--9362-2441-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-4 (vector-ref sc0 5))) e-4))))
(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-3 (vector-ref sc1 4))) (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 arg-1 e-10 e-6 e-7 e-8 e-9)))))))))))))) (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-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 e-4 e-10 e-6 arg-1 e-8 e-9)))))))))))))) (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-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 (REPLOpts-Idris-n--9267-2354-litStyle arg-1 arg-0 arg-1) e-4 e-10 e-6 e-7 e-8 e-9))))))))))))) (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-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 arg-1 e-9)))))))))))))) (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-literateStyle (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-3 (vector-ref sc0 4))) e-3))))
(define REPLOpts-REPLOpts-Idris-idemode (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-7 (vector-ref sc0 8))) e-7))))
(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--9362-2441-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-4 (vector-ref sc1 5))) e-4))))))))))
(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-7 (vector-ref sc1 8))) e-7))))))))))
(define REPLOpts-Idris-getLitStyle (lambda (arg-0 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (vector 1 (let ((sc1 e-5)) (let ((e-3 (vector-ref sc1 4))) e-3))))))))))
(define 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-8 (vector-ref sc1 9))) e-8))))))))))
(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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-1 (let ((sc1 e-5)) (let ((e-9 (vector-ref sc1 10))) e-9)))))))))))
(define REPLOpts-REPLOpts-Idris-extraCodegens (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-9 (vector-ref sc0 10))) e-9))))
(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-6 (vector-ref sc0 7))) e-6))))
(define REPLOpts-REPLOpts-Idris-editor (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-5 (vector-ref sc0 6))) e-5))))
(define REPLOpts-Idris-defaultOpts (lambda (arg-0 arg-1 arg-2) (vector 0 1 (vector 1 ) arg-0 (REPLOpts-Idris-n--9184-2280-litStyle arg-2 arg-1 arg-0 arg-0) "" "vim" (vector 0 ) arg-1 "" arg-2)))
(define REPLOpts-REPLOpts-Idris-currentElabSource (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-8 (vector-ref sc0 9))) e-8))))
(define Common-Compiler-case--11242-2664 (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--11219-2646 (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--11206-2623 (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--11100-2531 (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--11093-2510 (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--11100-2531 arg-0 arg-1 e-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) #\. (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--10968-2436 (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--10968-2388-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))))
(define Common-Compiler-case--10972-2401 (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--10968-2388-getOpts arg-0 (Strings-Data-strTail e-3)))))))))))
(define Common-Compiler-case--10925-2358 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-2) eta-0))) 0)))) (else (lambda (eta-0) 1))))))
(define Common-Compiler-case--10147-2172 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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--10477-2039 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--10147-1972 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--10147-1848 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--9931-1676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--10147-1848 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--10147-1972 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--10147-2172 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-29 (arg-3672 eta-2))) ((arg-3673 act-29) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-30 (arg-3672 eta-2))) ((arg-3673 act-30) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-31 (arg-3672 eta-2))) ((arg-3673 act-31) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-32 (arg-3672 eta-2))) ((arg-3673 act-32) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--9936-1468 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 0)))))))
(define Common-Compiler-case--9858-1422 (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--9785-1353 (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--9712-1284 (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--9561-1211 (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--9584-1152 (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--9561-1106-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--9566-1127 (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--9584-1152 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--9430-1005 (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--9412-983 (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--9430-1005 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--9218-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-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--9164-794 (lambda (arg-0 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--9218-834 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0))))))))))))))
(define Common-Compiler-case--9137-747 (lambda (arg-0 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--9218-834 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))
(define Common-Compiler-case--9112-725 (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--9218-834 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) eta-0)))))))))))))))))))))))))))))))) (else (Common-Compiler-getAllDesc arg-5 arg-2 arg-4 arg-3))))))
(define Common-Compiler-case--8730-393 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Common-Compiler-case--8731-379 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) arg-1) (else arg-0)))))
(define Common-Compiler-n--8725-428-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--9931-1450-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 0))))))))))))))))
(define Common-Compiler-n--10968-2388-getOpts (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (cond ((equal? sc0 "") (vector 0 ))(else (Common-Compiler-case--10972-2401 arg-0 arg-1 (Strings-Data-span (lambda (arg-2) (Prelude-C-47C-61_Eq__Char arg-2 #\,)) arg-1)))))))
(define Common-Compiler-n--9858-1380-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--9785-1311-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--9712-1242-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--9561-1106-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--9858-1381-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--9858-1380-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--9785-1312-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--9785-1311-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--9712-1243-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--9712-1242-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--9561-1107-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--9584-1152 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--8731-379 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--8730-393 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--8725-428-tag arg-1 arg-0 arg-0) (Common-Compiler-n--8725-428-tag arg-1 arg-0 arg-1))))
(define Common-Compiler-__Impl_Ord_UsePhase (lambda () (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Common-Compiler-C-61C-61_Eq__UsePhase arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Common-Compiler-C-47C-61_Eq__UsePhase arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Common-Compiler-compare_Ord__UsePhase arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Common-Compiler-C-60_Ord__UsePhase arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Common-Compiler-C-62_Ord__UsePhase arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Common-Compiler-C-60C-61_Ord__UsePhase arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Common-Compiler-C-62C-61_Ord__UsePhase arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Common-Compiler-max_Ord__UsePhase arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Common-Compiler-min_Ord__UsePhase arg-795 arg-796))))))
(define Common-Compiler-__Impl_Eq_UsePhase (lambda () (vector 0 (lambda (arg-436) (lambda (arg-437) (Common-Compiler-C-61C-61_Eq__UsePhase arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Common-Compiler-C-47C-61_Eq__UsePhase arg-438 arg-439))))))
(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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10968-2436 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--11093-2510 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--9430-1005 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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__CDef arg-2121 arg-2123))) (lambda (arg-2124) (lambda (eta-1) (TTC-Core-fromBuf_TTC__CDef arg-2124 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-2121) (lambda (arg-2123) (lambda (eta-1) (Binary-Utils-toBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2122) (lambda (arg-2124) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2125) (lambda (arg-2126) (TTC-Core-toBuf_TTC__Name arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2125) (lambda (arg-2126) (Binary-Utils-toBuf_TTC__Bool arg-2125 arg-2126))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2122 arg-2124))) (lambda (arg-2124) (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-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-3)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-3))))) arg-2124 eta-2)))) arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Binary-Utils-fromBuf_TTC__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__C-40C-124C-40C-40BuiltinC-46PairC-32C-36aC-41C-32C-36bC-41C-44C-40C-40BuiltinC-46MkPairC-32C-36aC-41C-32C-36bC-41C-124C-41 'erased 'erased (vector 0 (vector 0 (lambda (arg-2122) (lambda (arg-2125) (TTC-Core-toBuf_TTC__Name arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (TTC-Core-fromBuf_TTC__Name arg-2125 eta-2)))) (vector 0 (lambda (arg-2122) (lambda (arg-2125) (Binary-Utils-toBuf_TTC__Bool arg-2122 arg-2125))) (lambda (arg-2125) (lambda (eta-2) (Binary-Utils-fromBuf_TTC__Bool arg-2125 eta-2))))) arg-2121 arg-2123))) (lambda (arg-2125) (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-2121) (lambda (arg-2123) (TTC-Core-toBuf_TTC__Name arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (TTC-Core-fromBuf_TTC__Name arg-2126 eta-3)))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (Binary-Utils-toBuf_TTC__Bool arg-2121 arg-2123))) (lambda (arg-2126) (lambda (eta-3) (Binary-Utils-fromBuf_TTC__Bool arg-2126 eta-3))))) arg-2125 eta-2)))) arg-2124 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__C-40TermC-32C-36varsC-41 'erased arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-31 (arg-3672 eta-0))) ((arg-3673 act-31) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--9931-1450-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--10147-1848 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--10147-1972 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--10147-2172 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-44 (arg-3672 eta-1))) ((arg-3673 act-44) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-45 (arg-3672 eta-1))) ((arg-3673 act-45) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-46 (arg-3672 eta-1))) ((arg-3673 act-46) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-47 (arg-3672 eta-1))) ((arg-3673 act-47) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--9218-834 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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--9858-1381-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--9712-1243-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--9561-1107-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--9785-1312-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--11206-2623 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 (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--6653-4530 (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--6580-4468 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-5)) (cond ((equal? sc0 0) (VMCode-Compiler-n--6577-4453-declareAll arg-0 arg-1 arg-4 arg-3)) (else (vector 1 (vector 0 (vector 1 arg-2)) (VMCode-Compiler-n--6577-4453-declareAll arg-0 arg-1 (vector 1 arg-2 arg-4) arg-3)))))))
(define VMCode-Compiler-case--5828-3855 (lambda (arg-0 arg-1 arg-2 arg-3) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "TAILCALL ") (else "CALL ")))))
(define VMCode-Compiler-n--6157-4209-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--6157-4145-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--6157-4144-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--6157-4144-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--6157-4144-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--6157-4144-projectArgs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 (b+ arg-6 1 63) e-3)))))))))
(define VMCode-Compiler-n--6382-4339-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
(define VMCode-Compiler-n--6382-4390-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) e-3)))))
(define VMCode-Compiler-n--6577-4453-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--6580-4468 arg-0 arg-1 e-2 e-3 arg-2 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) 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-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--6157-4145-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--6157-4209-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6382-4339-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-n--6382-4390-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (VMCode-Compiler-findVars eta-0))) arg-1))) (VMCode-Compiler-n--6577-4453-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--7103-1602 (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--6993-1568 (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--6993-1472-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--6998-1512 (lambda (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--6508-1431 (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--6844-1383 (lambda (arg-0 arg-1 arg-2 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--6505-1211 (lambda (arg-0 arg-1 arg-2 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--6505-1117 (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--6119-691-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--6394-938-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--6394-938-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 (vector 0 e-8) arg-4) e-3))))(else (ANF-Compiler-n--6394-938-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))(else (ANF-Compiler-n--6394-938-doBind arg-0 arg-1 arg-2 arg-3 (vector 1 e-6 arg-4) e-3))))))))))))))
(define ANF-Compiler-n--6993-1472-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--6993-1472-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--6508-1349-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--6508-1349-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--6119-691-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)))
(define ANF-Compiler-__Impl_Show_ANF (lambda () (vector 0 (lambda (x) (ANF-Compiler-show_Show__ANF x)) (lambda (d) (lambda (x) (ANF-Compiler-showPrec_Show__ANF d x))))))
(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--6993-1472-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--6993-1472-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--6394-938-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--6508-1349-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--6505-1211 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--6853-1612 (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--6835-1600 (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--6853-1612 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--6737-1564 (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--6737-1510 (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--6199-1097 (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--6226-1031 (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--6126-947 (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--6203-1251-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--6203-1251-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--6126-908-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--6126-908-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--6126-908-mkName arg-0 e-4 arg-2)))(else (vector 2 (Name-Core-show_Show__Name arg-1) arg-2))))))
(define LambdaLift-Compiler-n--6203-1394-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--6203-1346-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--6199-994-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--6199-993-allPrfs arg-0 arg-1 arg-2 arg-3 arg-4 arg-5))))
(define LambdaLift-Compiler-n--6199-993-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--6199-993-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))))))))))))
(define LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (lambda (arg-0 arg-1) (let ((sc0 arg-1)) (case (vector-ref sc0 0) ((0) (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "!" (Name-Core-show_Show__Name (TT-Core-nameAt 'erased arg-0 e-2 'erased))))) ((1) (let ((e-7 (vector-ref sc0 2))) (let ((e-8 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-7) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 arg-2)) e-8)) ")")))))) ((2) (let ((e-11 (vector-ref sc0 2))) (let ((e-12 (vector-ref sc0 3))) (let ((e-13 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-11) (Strings-Prelude-C-43C-43 " underapp " (Strings-Prelude-C-43C-43 (Prelude-show_Show__Nat e-12) (Strings-Prelude-C-43C-43 ">(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 arg-2)) e-13)) ")")))))))))) ((3) (let ((e-16 (vector-ref sc0 2))) (let ((e-17 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-16) (Strings-Prelude-C-43C-43 " @ (" (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-17) ")")))))) ((4) (let ((e-20 (vector-ref sc0 2))) (let ((e-21 (vector-ref sc0 3))) (let ((e-22 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%let " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-20) (Strings-Prelude-C-43C-43 " = " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-21) (Strings-Prelude-C-43C-43 " in " (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 (vector 1 e-20 arg-0) e-22)))))))))) ((5) (let ((e-25 (vector-ref sc0 2))) (let ((e-27 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%con " (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 (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 arg-2)) e-27)) ")"))))))) ((6) (let ((e-31 (vector-ref sc0 3))) (let ((e-32 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%op " (Strings-Prelude-C-43C-43 (TT-Core-show_Show__C-40PrimFnC-32C-36arityC-41 'erased e-31) (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 (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 arg-2)) e-32))) ")"))))))) ((7) (let ((e-35 (vector-ref sc0 2))) (let ((e-36 (vector-ref sc0 3))) (Strings-Prelude-C-43C-43 "%extprim " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name e-35) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 (Name-Core-showSep ", " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 arg-2)) e-36)) ")"))))))) ((8) (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 "%case " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-39) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedConAltC-32C-36vsC-41 arg-0 arg-2)) e-40)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (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)))) e-41)))))))))) ((9) (let ((e-44 (vector-ref sc0 2))) (let ((e-45 (vector-ref sc0 3))) (let ((e-46 (vector-ref sc0 4))) (Strings-Prelude-C-43C-43 "%case " (Strings-Prelude-C-43C-43 (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 e-44) (Strings-Prelude-C-43C-43 " of { " (Strings-Prelude-C-43C-43 (Name-Core-showSep "| " (Prelude-map_Functor__List 'erased 'erased (lambda (arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 arg-0 arg-2)) e-45)) (Strings-Prelude-C-43C-43 " " (Prelude-show_Show__C-40MaybeC-32C-36aC-41 'erased (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)))) e-46)))))))))) ((10) (let ((e-49 (vector-ref sc0 2))) (TT-Core-show_Show__Constant e-49))) ((11) "___") (else (let ((e-54 (vector-ref sc0 2))) (Strings-Prelude-C-43C-43 "%CRASH(" (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-54) ")"))))))))
(define LambdaLift-Compiler-showPrec_Show__C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 arg-0 arg-2)))
(define LambdaLift-Compiler-showPrec_Show__C-40LiftedConAltC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedConAltC-32C-36vsC-41 arg-0 arg-2)))
(define LambdaLift-Compiler-showPrec_Show__C-40LiftedC-32C-36vsC-41 (lambda (arg-0 arg-1 arg-2) (LambdaLift-Compiler-show_Show__C-40LiftedC-32C-36vsC-41 arg-0 arg-2)))
(define LambdaLift-Compiler-__Impl_Show_C-40LiftedConstAltC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LambdaLift-Compiler-show_Show__C-40LiftedConstAltC-32C-36vsC-41 arg-0 x)) (lambda (d) (lambda (x) (LambdaLift-Compiler-showPrec_Show__C-40LiftedConstAltC-32C-36vsC-41 arg-0 d x))))))
(define LambdaLift-Compiler-__Impl_Show_C-40LiftedConAltC-32C-36vsC-41 (lambda (arg-0) (vector 0 (lambda (x) (LambdaLift-Compiler-show_Show__C-40LiftedConAltC-32C-36vsC-41 arg-0 x)) (lambda (d) (lambda (x) (LambdaLift-Compiler-showPrec_Show__C-40LiftedConAltC-32C-36vsC-41 arg-0 d x))))))
(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--6199-994-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--6203-1251-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--6203-1346-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--6203-1394-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--6853-1612 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--6126-908-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 Inline-Compiler-case--10231-3988 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))))))) (else (lambda (eta-0) (vector 1 1)))))))
(define Inline-Compiler-case--10163-3926 (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--10145-3914 (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--10163-3926 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--10080-3853 (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--10062-3841 (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--10080-3853 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--9997-3780 (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--9979-3768 (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--9997-3780 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--9949-3734 (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--9786-3589 (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--9217-3047 (lambda (arg-0 arg-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--9191-3029 (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--9217-3047 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--7252-2923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13) (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--8829-2734 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--7245-2693 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--8829-2734 arg-0 arg-1 arg-2 arg-3 arg-4 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--7233-2563 (lambda (arg-0 arg-1 arg-2 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--7228-2518 (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--7222-2368 (lambda (arg-0 arg-1 arg-2 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--7222-2257 (lambda (arg-0 arg-1 arg-2 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--7222-2156 (lambda (arg-0 arg-1 arg-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--7222-1920 (lambda (arg-0 arg-1 arg-2 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--7661-1670 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--7624-1631 (lambda (arg-0 arg-1 arg-2 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--7661-1670 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-436) (lambda (arg-437) (Context-Core-C-61C-61_Eq__DefFlag arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Context-Core-C-47C-61_Eq__DefFlag arg-438 arg-439)))) (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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--7222-1605 (lambda (arg-0 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--7624-1631 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--7217-1403 (lambda (arg-0 arg-1 arg-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--7210-1315 (lambda (arg-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--6712-1171 (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--6709-853 (lambda (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--6709-760 (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--6647-707 (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--6512-593 (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--9191-3214-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--9191-3214-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--10228-3970-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))) (else (vector 1 1))))))))))))))))
(define Inline-Compiler-n--7245-2656-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--9191-3385-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--9191-3328-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--6712-1171 '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--6709-760 '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--6709-853 '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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) (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--7217-1403 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--7252-2923 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--7245-2693 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--7245-2656-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--9786-3589 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--10163-3926 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--9949-3734 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--6647-707 '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--9997-3780 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--9217-3047 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--9191-3214-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--9191-3328-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--9191-3385-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--10080-3853 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--7624-1631 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--7222-1920 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--7222-1920 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--7222-1920 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--10228-3970-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--3186-3024 (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--2119-2292 (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--2119-2189 (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--2119-2180-getMode arg-0 arg-1 arg-2 arg-3 arg-3)))))(else (vector 0 ))))))
(define Commands-IDEMode-Idris-case--2119-2140 (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--2119-2180-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--3013-2825-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--3186-3024 '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-2905) (Commands-IDEMode-Idris-toSExp_SExpable__SExp arg-2905)) (lambda (arg-2905) (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-2906) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2906)) (lambda (arg-2906) (Commands-IDEMode-Idris-toSExp_SExpable__Int arg-2906))) arg-2905))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--2119-2140 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--2119-2189 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Commands-IDEMode-Idris-n--3013-2825-escapeChar eta-0))) (Prelude-unpack ext-0)))))
(define Error-Idris-case--10501-3203 (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--10501-2909 (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--10501-2829-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--10501-2743 (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--10501-2580 (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--10501-2545-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--10501-2546-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--10501-2464 (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--10307-2073 (lambda (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--10307-1965-repeatChar arg-0 arg-1 arg-2 arg-3 arg-5 #\ ) (Strings-Prelude-C-43C-43 (Error-Idris-n--10307-1965-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--10307-1966-addLineNumbers arg-0 arg-1 arg-2 arg-3 arg-4 (Error-Idris-n--10307-1964-extractRange arg-0 arg-1 arg-2 arg-3 'erased arg-4 arg-6 arg-8)))))))))
(define Error-Idris-case--10320-2002 (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--10501-3070-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--10501-2545-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "irrelevant" "linear" (lambda (eta-0) "unrestricted") ext-0)))
(define Error-Idris-n--10501-2546-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) "irrelevant" "relevant" (lambda (eta-0) "non-linear") ext-0)))
(define Error-Idris-n--10501-2198-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--10501-2198-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--10501-3715-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--10501-3271-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--10501-3271-showHoles arg-0 arg-1 arg-2 arg-3 e-3)))))))))))))))
(define Error-Idris-n--10307-1965-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--10501-2829-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--10307-1964-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--10501-3138-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--10501-3138-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--10501-3138-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--10501-2830-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--10501-2830-allUndefined arg-0 arg-1 arg-2 arg-3 e-3)))))))(else (vector 0 ))))))(else (vector 0 )))))))(else (vector 0 ))))))
(define Error-Idris-n--10307-1966-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--10307-2073 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--10501-2198-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--10501-2580 e-53 e-52 e-51 e-50 arg-2 arg-1 arg-0 (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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--10501-2909 e-77 arg-2 arg-1 arg-0 (Error-Idris-n--10501-2830-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--10501-3070-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--10501-3203 e-102 e-105 e-104 e-103 arg-2 arg-1 arg-0 (Error-Idris-n--10501-3138-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--10501-3271-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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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-6290) (lambda (arg-6291) (Context-Core-full_HasNames__Name arg-6290 arg-6291))) (lambda (arg-6292) (lambda (arg-6293) (Context-Core-resolved_HasNames__Name arg-6292 arg-6293)))) 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--10501-3715-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--11906-5298 (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--11906-5216-cleanNode arg-0 arg-1 eta-0)) arg-0))))))
(define Resugar-Idris-case--11910-5220 (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--11906-5215-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--10143-5117 (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--10137-4935 (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--10137-4863-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--11250-4678 (lambda (arg-0 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--10119-4624 (lambda (arg-0 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--10116-4531 (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--10113-4291 (lambda (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--10605-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) (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--10113-3994 (lambda (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--10113-3919 (lambda (arg-0 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--10113-3851 (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--10235-3766 (lambda (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 ((Resugar-Idris-toPTerm arg-7 arg-6 (Resugar-Idris-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((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--10113-3716 (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-tyPrec) arg-1) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-2 (vector-ref sc1 1))) (vector 0 e-2))) (else (let ((e-5 (vector-ref sc1 1))) (let ((act-25 ((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 (let ((imp 1)) (Resugar-Idris-case--10235-3766 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 imp (Resugar-Idris-n--10113-3679-needsBind arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-2))))))))
(define Resugar-Idris-case--10113-3647 (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--10077-3575 (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--9741-3522 (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--9756-3422 (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--9756-3319 (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--9741-3271 (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--9756-3319 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--9756-3422 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--9679-3205 (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--9584-3138 (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--9519-3114 (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--9435-3012 (lambda (arg-0 arg-1 arg-2 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--10113-3679-needsBind (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8) (let ((sc0 arg-8)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((sc1 e-1)) (case (vector-ref sc1 0) ((1) (let ((e-2 (vector-ref sc1 1))) (let ((ns (Utils-TTImp-findBindableNames 1 (vector 0 ) (vector 0 ) arg-0))) (let ((allNs (Utils-TTImp-findAllNames (vector 0 ) arg-0))) (Prelude-C-38C-38 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (vector 1 e-2) allNs) (lambda () (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-2 (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Builtin-fst 'erased 'erased eta-0)) ns)))))))))(else 1)))))(else 1)))))
(define Resugar-Idris-n--9519-3064-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--10113-4036-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--10605-4070 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--10137-4863-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--11906-5216-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--11906-5215-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--11906-5215-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--11906-5215-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--11906-5215-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--11906-5215-cleanName arg-0 arg-1 e-14) eta-0))))))(else (lambda (eta-0) (vector 1 arg-2)))))))
(define Resugar-Idris-n--11906-5215-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--11906-5215-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--10113-3647 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-tyPrec) 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 (let ((imp 1)) ((Resugar-Idris-case--10235-3766 e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 imp (Resugar-Idris-n--10113-3679-needsBind e-7 e-6 e-5 e-3 e-2 arg-2 arg-1 arg-0 e-5)) 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--10113-4036-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--10137-4863-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--9741-3271 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--9741-3522 e-4 e-3 (Name-Core-nameRoot e-4)))))))(else (Resugar-Idris-case--9741-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9741-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))(else (Resugar-Idris-case--9741-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9741-3522 e-4 e-3 (Name-Core-nameRoot e-4))))))))(else (Resugar-Idris-case--9741-3522 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--9435-3012 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-15 (vector-ref sc4 1))) e-15)))) 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--11906-5216-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--9584-3138 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--9519-3114 arg-1 arg-0 (Resugar-Idris-n--9519-3064-needed arg-1 arg-0 arg-1))))
(define ProcessIdr-Idris-case--17205-3967 (lambda (arg-0 arg-1 arg-2 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-6290) (lambda (arg-6291) (lambda (eta-1) (Syntax-Idris-full_HasNames__SyntaxInfo arg-6290 arg-6291 eta-1)))) (lambda (arg-6292) (lambda (arg-6293) (lambda (eta-1) (Syntax-Idris-resolved_HasNames__SyntaxInfo arg-6292 arg-6293 eta-1))))) (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 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--17146-3941 (lambda (arg-0 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--17205-3967 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--17122-3888 (lambda (arg-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--17205-3967 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--16606-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 arg-17 arg-18 arg-19 arg-20 arg-21 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--16606-3591 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--16447-3415 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Bool arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Bool arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Bool arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Bool arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Bool arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-801) (lambda (arg-802) (Prelude-min_Ord__String arg-801 arg-802)))) arg-799 arg-800)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__Int arg-799 arg-800)))) arg-797 arg-798)))) arg-795 arg-796)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc4 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16606-3591 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--16170-3269 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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 (_-3400) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Bool arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Int arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Int arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Bool arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Bool arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Bool arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-789) (lambda (arg-790) (Prelude-compare_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Bool arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Bool arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Bool arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-60C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Bool arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Bool arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Bool arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Bool arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Bool arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Bool arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Bool arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Bool arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-797) (lambda (arg-798) (Prelude-C-62C-61_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__Int arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-799) (lambda (arg-800) (Prelude-max_Ord__String arg-799 arg-800))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-801) (lambda (arg-802) (Prelude-min_Ord__String arg-801 arg-802)))) arg-799 arg-800)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__Int arg-799 arg-800)))) arg-797 arg-798)))) arg-795 arg-796)))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-21 (vector 1 "Main" (vector 0 ))))) (cond ((equal? sc7 0) (((let ((_-0 (vector 1 e-2))) (ProcessIdr-Idris-case--16606-3591 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--16170-3046 (lambda (arg-0 arg-1 arg-2 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--16063-2915 (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--16024-2900 (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--16063-2915 arg-0 arg-1 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-0) (lambda (eta-0) (ProcessIdr-Idris-n--16024-2865-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--16028-2870 (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--15886-2754 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--15873-2735 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--15846-2712 (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--15645-2651 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--15624-2504 (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-extendSyn arg-1 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 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 (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--15516-2402 (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--15256-2187 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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-10 (vector-ref sc2 2))) (lambda (eta-0) (let ((act-24 (Desugar-Idris-extendSyn arg-5 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-7))) (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-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))) (let ((act-27 (let ((sc6 arg-2)) (cond ((equal? sc6 0) (Context-Core-setVisible arg-7 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-4)))) (cond ((equal? sc7 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 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-7 e-11 eta-0)))))))))))))))))))))))))))))) (else (let ((sc1 arg-2)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-7 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
(define ProcessIdr-Idris-case--15218-2153 (lambda (arg-0 arg-1 arg-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))) (lambda (eta-0) (let ((act-24 (Binary-Core-readFromTTC 'erased (vector 0 (lambda (arg-2121) (lambda (arg-2123) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-1)))) arg-7 arg-6 1 arg-3 arg-2 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-extendSyn arg-5 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-7))) (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-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 ((e-12 (vector-ref sc7 1))) (let ((act-28 (let ((sc8 arg-2)) (cond ((equal? sc8 0) (Context-Core-setVisible arg-7 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-4)))) (cond ((equal? sc9 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 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-7 e-12 eta-0))))))))))))))))))))))))))))) (else (let ((sc3 arg-2)) (cond ((equal? sc3 0) (Context-Core-setVisible arg-7 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--15164-2122 (lambda (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 1) (lambda (eta-0) (let ((act-24 (Directory-Core-nsToPath arg-7 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 (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-2121) (lambda (arg-2123) (lambda (eta-1) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-1)))) (lambda (arg-2124) (lambda (eta-1) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 eta-1)))) arg-7 arg-6 1 arg-3 arg-2 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-extendSyn arg-5 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-7))) (vector 1 act-27)))) (let ((sc8 act-27)) (case (vector-ref sc8 0) ((0) (let ((e-3 (vector-ref sc8 1))) (vector 0 e-3))) (else (let ((act-28 (Context-Core-getNS arg-7 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-2)) (cond ((equal? sc10 0) (Context-Core-setVisible arg-7 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-4)))) (cond ((equal? sc11 0) (lambda (eta-1) (ProcessIdr-Idris-readModule arg-7 arg-6 arg-5 arg-4 arg-3 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-7 e-13 eta-0))))))))))))))))))))))))))))) (else (let ((sc5 arg-2)) (cond ((equal? sc5 0) (Context-Core-setVisible arg-7 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-2)) (cond ((equal? sc1 0) (lambda (eta-0) (Context-Core-setVisible arg-7 arg-1 eta-0))) (else (lambda (eta-0) (vector 1 (vector 0 )))))))))))
(define ProcessIdr-Idris-case--15062-2035 (lambda (arg-0 arg-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--15030-1985 (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--15062-2035 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--16024-2865-isColon (lambda (arg-0 arg-1 arg-2) (ProcessIdr-Idris-case--16028-2870 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 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (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--15164-2122 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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (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-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__Bool arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Bool arg-440 arg-441)))) (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Bool arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__Bool arg-442 arg-443)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-442) (lambda (arg-443) (Prelude-C-61C-61_Eq__String arg-442 arg-443))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-444) (lambda (arg-445) (Prelude-C-47C-61_Eq__String arg-444 arg-445)))) arg-442 arg-443)))) arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 arg-6 (vector 0 arg-5 arg-7)) (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-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--16063-2915 arg-1 arg-0 e-2 _-0 (Source-Parser-runParserTo 'erased 1 (Unlit-Parser-isLitFile arg-1) (lambda (eta-0) (ProcessIdr-Idris-n--16024-2865-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-2121) (lambda (arg-2123) (lambda (eta-0) (Syntax-Idris-toBuf_TTC__SyntaxInfo arg-2121 arg-2123 eta-0)))) (lambda (arg-2124) (lambda (eta-0) (Syntax-Idris-fromBuf_TTC__SyntaxInfo arg-2124 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-extendSyn arg-2 e-7 ext-0))) (let ((sc6 act-27)) (case (vector-ref sc6 0) ((0) (let ((e-2 (vector-ref sc6 1))) (vector 0 e-2))) (else (let ((act-28 (let ((act-28 (unbox arg-1))) (vector 1 act-28)))) (let ((sc7 act-28)) (case (vector-ref sc7 0) ((0) (let ((e-2 (vector-ref sc7 1))) (vector 0 e-2))) (else (let ((e-13 (vector-ref sc7 1))) (let ((act-29 ((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 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 (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--16170-3046 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) 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--16170-3269 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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (List-Data-sort 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) (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-436) (lambda (arg-437) (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-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__Int arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-440) (lambda (arg-441) (Prelude-C-61C-61_Eq__String arg-440 arg-441))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-442) (lambda (arg-443) (Prelude-C-47C-61_Eq__String arg-442 arg-443)))) arg-440 arg-441)))) (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__Int arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__Int arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-787) (lambda (arg-788) (Prelude-compare_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__Int arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__Int arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__Int arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-60C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__Int arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-795) (lambda (arg-796) (Prelude-C-62C-61_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__String arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__String arg-795 arg-796)))) arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-795) (lambda (arg-796) (Prelude-max_Ord__Int arg-795 arg-796))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Int arg-795 arg-796)))) arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-785) (lambda (arg-786) (Prelude-compare_Ord__String arg-785 arg-786))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-60_Ord__String arg-787 arg-788))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-62_Ord__String arg-789 arg-790))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-60C-61_Ord__String arg-791 arg-792))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-793) (lambda (arg-794) (Prelude-C-62C-61_Ord__String arg-793 arg-794))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-797) (lambda (arg-798) (Prelude-max_Ord__String arg-797 arg-798))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__String arg-797 arg-798)))) arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__C-40ListC-32C-36aC-41 'erased (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__String arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__String arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__String arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__String arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__String arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__String arg-793 arg-794))) (lambda (arg-799) (lambda (arg-800) (Prelude-min_Ord__String arg-799 arg-800)))) arg-797 arg-798)))) (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Int arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Int arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Int arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Int arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Int arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Int arg-793 arg-794))) (lambda (arg-797) (lambda (arg-798) (Prelude-min_Ord__Int arg-797 arg-798)))) arg-795 arg-796)))) 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--15062-2035 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--17205-3967 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-7335) (Hash-Core-hash_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7336) (Hash-Core-hash_Hashable__String arg-7336)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__String arg-7336 arg-7337)))) arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-7335) (Hash-Core-hash_Hashable__String arg-7335)) (lambda (arg-7338) (lambda (arg-7339) (Hash-Core-hashWithSalt_Hashable__String arg-7338 arg-7339)))) arg-7336 arg-7337)))) 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-7335) (Hash-Core-hash_Hashable__Int arg-7335)) (lambda (arg-7336) (lambda (arg-7337) (Hash-Core-hashWithSalt_Hashable__Int arg-7336 arg-7337)))) 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--15846-2712 arg-0 (Prelude-not (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) (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--22428-20953 (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--22373-20911 (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--21079-19551 (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--9823-18990 (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--20493-18943 (lambda (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--20460-18882 (lambda (arg-0 arg-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--20493-18943 arg-0 arg-1 arg-2 'erased 'erased arg-6 arg-7 arg-5 e-2 (Parser-Idris-n--9823-18848-spanMap arg-0 arg-1 arg-2 'erased 'erased arg-7 arg-6))))))))
(define Parser-Idris-case--9822-18755 (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--19309-17907 (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--19309-17865 (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--19087-17442 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) (else (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))))))
(define Parser-Idris-case--16491-14533 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-4)) (cond ((equal? sc0 0) (Parser-Idris-n--16489-14518-drop arg-0 arg-3 arg-2)) (else (vector 1 arg-1 arg-2))))))
(define Parser-Idris-case--15856-13858 (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--10377-12481 (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--10365-11471 (lambda (arg-0 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--10355-10589 (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--10348-9549 (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--10341-8676 (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 (_-8694) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-8704) (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--10631-8242 (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--10338-8196 (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 (_-8210) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-8220) (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--10338-8169 (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--9863-7686 (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 (_-7701) (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--9863-7662 (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 (_-7677) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 19 )))))))))))
(define Parser-Idris-case--9863-7638 (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 (_-7653) (vector 0 (vector 14 (vector 0 arg-0 e-2 e-3) (vector 9 )))))))))))
(define Parser-Idris-case--9863-7618 (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--9863-7594 (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 (_-7609) (vector 0 (vector 25 (vector 0 arg-0 e-2 e-3)))))))))))
(define Parser-Idris-case--9863-7570 (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 (_-7585) (vector 0 (vector 24 (vector 0 arg-0 e-2 e-3)))))))))))
(define Parser-Idris-case--9863-7550 (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--9863-7527 (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--9863-7506 (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 (_-7519) (vector 0 (vector 21 (vector 0 arg-0 e-2 e-3)))))))))))
(define Parser-Idris-case--9853-7363 (lambda (arg-0) (let ((sc0 arg-0)) (let ((e-1 (vector-ref sc0 2))) (vector 0 1 e-1)))))
(define Parser-Idris-n--9823-18848-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--20460-18882 arg-0 arg-1 arg-2 'erased 'erased e-2 e-3 arg-5 (arg-5 e-2)))))))))
(define Parser-Idris-n--10340-8442-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--10373-12188-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--15559-13705-parseWithArg (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol "|") (lambda () (lambda (_-13725) (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--22150-20652-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20661) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20669) (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--22101-20596-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20605) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20613) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (i) (vector 0 (arg-1 (Prelude-fromInteger_Num__Nat i))))))))))))))
(define Parser-Idris-n--22055-20545-parse (lambda (arg-0 arg-1 arg-2 arg-3) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20554) (vector 7 0 (Parser-Idris-runParseCmd arg-3) (lambda () (lambda (_-20562) (vector 7 1 (Parser-Idris-setOption arg-1) (lambda () (lambda (opt) (vector 0 (arg-2 opt)))))))))))))
(define Parser-Idris-n--22008-20491-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20500) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20508) (vector 7 1 (Parser-Idris-topDecl "(interactive)" (Source-Rule-Parser-init)) (lambda () (lambda (tm) (vector 0 (arg-1 tm)))))))))))))
(define Parser-Idris-n--21961-20438-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20447) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20455) (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--21916-20387-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20396) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20404) (vector 7 1 (Source-Rule-Parser-moduleIdent) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
(define Parser-Idris-n--21869-20334-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20343) (vector 7 0 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20351) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 0 (arg-1 n)))))))))))))
(define Parser-Idris-n--21831-20291-parse (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-20300) (vector 7 1 (Parser-Idris-runParseCmd arg-2) (lambda () (lambda (_-20308) (vector 0 arg-1)))))))))
(define Parser-Idris-n--22150-20651-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--22101-20595-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--22055-20544-names (lambda (arg-0 arg-1 arg-2 arg-3) (Parser-Idris-extractNames arg-3)))
(define Parser-Idris-n--22008-20490-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--21961-20437-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--21916-20386-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--21869-20333-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--21831-20290-names (lambda (arg-0 arg-1 arg-2) (Parser-Idris-extractNames arg-2)))
(define Parser-Idris-n--10340-8443-nameList (lambda (arg-0 arg-1) (vector 7 0 (Source-Rule-Parser-symbol "[") (lambda () (lambda (_-8471) (vector 8 1 0 (vector 5 ) (lambda (_-8480) (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 (_-8502) (vector 0 ns))))))))))))))
(define Parser-Idris-n--10382-13179-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--10382-13179-mkPi arg-0 arg-1 arg-2 arg-3 arg-4 e-7 e-3))))))))))))
(define Parser-Idris-n--10347-9329-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--10347-9329-mergePairs arg-0 arg-1 arg-2 arg-3 arg-4 e-3)))))))))))))))
(define Parser-Idris-n--9823-18849-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--10373-12187-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--19084-17406-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--19087-17442 arg-0 arg-1 arg-2 start m rigin (Semiring-Algebra-isErased 'erased (vector 0 (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) 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 (_-17493) (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--16489-14518-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--16491-14533 arg-0 e-2 e-3 arg-1 (Prelude-C-61C-61_Eq__Char arg-1 e-2)))))))))
(define Parser-Idris-n--19627-17965-ctor (lambda (arg-0 arg-1 arg-2) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17973) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-17989) (vector 0 n)))))))))))
(define Parser-Idris-n--10354-10401-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 (_-10415) (vector 0 "_"))))))))
(define Parser-Idris-n--10362-11139-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--10362-11139-bindAll arg-0 arg-1 arg-2 e-3 arg-4)))))))))))))))
(define Parser-Idris-n--10337-7949-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--10337-7949-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--10337-7949-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--10337-7949-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--15559-13704-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--15559-13704-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 (_-8530) (vector 8 1 0 (vector 5 ) (lambda (_-8539) (vector 7 0 (vector 9 0 0 (Parser-Idris-n--10340-8442-singleName arg-1 arg-0) (lambda () (Parser-Idris-n--10340-8443-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 (_-13492) (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 (_-7718) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-13365) (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-13373) (vector 0 (vector 2 )))))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "export") (lambda () (lambda (_-13353) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "private") (lambda () (lambda (_-13341) (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--10377-12481 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 (_-15974) (vector 8 1 0 (vector 5 ) (lambda (_-15983) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15992) (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 (_-16029) (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 (_-16068) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-13228) (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--10382-13179-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 (_-13427) (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 (_-13454) (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 (_-9424) (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 (_-9394) (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--10347-9329-mergePairs arg-3 arg-2 arg-1 arg-0 end rest))))))))))) (lambda () (vector 7 1 (Parser-Idris-continueWith arg-2 ")") (lambda () (lambda (_-9363) (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 (_-15567) (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 (_-15590) (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 (_-14664) (vector 0 (vector 2 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "total") (lambda () (lambda (_-14651) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "covering") (lambda () (lambda (_-14639) (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--9822-18755 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--16489-14518-drop arg-0 #\{ (List-Data-reverse 'erased (Parser-Idris-n--16489-14518-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 (_-10217) (vector 8 1 0 (vector 5 ) (lambda (_-10226) (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 (_-10144) (vector 8 1 0 (vector 5 ) (lambda (_-10153) (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 (_-10178) (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 (_-10090) (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 (_-10115) (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 (_-10034) (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 (_-10060) (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 (_-9968) (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 (_-9995) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-9922) (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 (_-9900) (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 (_-9878) (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 (_-9832) (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 (_-9775) (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 (_-9799) (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 (_-9729) (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 (_-9673) (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 (_-14037) (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 (_-13966) (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 (_-19479) (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 (_-19459) (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 (_-19439) (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 (_-19544) (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 (_-19532) (vector 0 (vector 1 arg-0))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "showtypes") (lambda () (lambda (_-19520) (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 (_-15643) (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 (_-12334) (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 (_-12349) (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 (_-12121) (vector 7 0 (Source-Rule-Parser-symbol "{") (lambda () (lambda (_-12130) (vector 8 1 0 (vector 5 ) (lambda (_-12139) (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 (_-12169) (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 (_-17819) (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 (_-17843) (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 (_-17703) (vector 8 1 0 (vector 5 ) (lambda (_-17712) (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 (_-17743) (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 (_-17794) (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 (_-18042) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) paramss))) (vector 7 1 (Source-Rule-Parser-keyword "where") (lambda () (lambda (_-18068) (vector 8 1 1 (Source-Rule-Parser-blockWithOptHeaderAfter 'erased 'erased col (lambda (eta-0) (Parser-Idris-n--19627-17965-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-19271) (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 (_-19167) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--10354-10401-binderName arg-2 arg-1 arg-0)) (lambda () (lambda (ns) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10518) (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 (_-10533) (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--10354-10401-binderName arg-2 arg-1 arg-0) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-10455) (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 (_-12951) (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 (_-13641) (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 (_-13672) (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 (_-13568) (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 (_-13593) (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 (_-13546) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-4) (lambda (_-13554) (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 (_-19414) (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 (_-19402) (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 (_-19390) (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 (_-19378) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-exactIdent "execute") (lambda () (lambda (_-19366) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "exec") (lambda () (lambda (_-19354) (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 (_-15797) (vector 8 1 0 (vector 5 ) (lambda (_-15806) (vector 7 0 (Source-Rule-Parser-symbol "(") (lambda () (lambda (_-15815) (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 (_-15842) (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 (_-15872) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--22055-20544-names arg-3 arg-2 arg-1 arg-0) (vector 0 (vector 5 ) (vector 0 arg-3 (Parser-Idris-n--22055-20545-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--10341-8676 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 (_-8628) (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 (_-14583) (vector 0 0)))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "off") (lambda () (lambda (_-14571) (vector 0 1))))))))
(define Parser-Idris-numberArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--22101-20595-names arg-2 arg-1 arg-0) (vector 0 (vector 4 ) (vector 0 arg-2 (Parser-Idris-n--22101-20596-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--21831-20290-names arg-2 arg-1 arg-0) (vector 0 (vector 0 ) (vector 0 arg-2 (Parser-Idris-n--21831-20291-parse arg-2 arg-1 arg-0))))))
(define Parser-Idris-namespaceHead (lambda () (vector 7 0 (Source-Rule-Parser-keyword "namespace") (lambda () (lambda (_-15440) (vector 8 1 0 (vector 5 ) (lambda (_-15449) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--21869-20333-names arg-2 arg-1 arg-0) (vector 0 (vector 1 ) (vector 0 arg-2 (Parser-Idris-n--21869-20334-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 (_-15691) (vector 8 1 0 (vector 5 ) (lambda (_-15700) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--21916-20386-names arg-2 arg-1 arg-0) (vector 0 (vector 7 ) (vector 0 arg-2 (Parser-Idris-n--21916-20387-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--15856-13858 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-5 (vector 1 e-9))))))(else (vector 1 arg-0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (_-9154) (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 (_-9114) (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 (_-9254) (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 (_-9283) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-9234) (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 (_-9219) (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 (_-11656) (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 (_-11673) (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 (_-11571) (vector 8 1 0 (vector 5 ) (lambda (_-11580) (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 (_-11597) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-11282) (Parser-Idris-typeExpr (Parser-Idris-pnoeq (Parser-Idris-pdef)) arg-0 arg-1))))) (lambda (ty) (vector 7 0 (Source-Rule-Parser-symbol "=") (lambda () (lambda (_-11296) (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 (_-13120) (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 (_-13076) (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 (_-13032) (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 (_-12988) (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 (_-11810) (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 (_-11826) (vector 8 1 1 (vector 5 ) (lambda (_-11835) (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 (_-11173) (vector 7 0 (Parser-Idris-bindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-11189) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-1 (vector 0 )) (lambda (_-11198) (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--10362-11139-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 (_-19039) (vector 8 1 0 (Parser-Text-option 'erased 'erased 0 1 (vector 7 1 (Source-Rule-Parser-keyword "public") (lambda () (lambda (_-19057) (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 (_-19090) (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 (_-19112) (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 (_-11076) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-11092) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-11101) (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 (_-8337) (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 (_-8398) (vector 8 1 0 (vector 5 ) (lambda (_-8407) (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 (_-8423) (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 (_-8377) (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 (_-8279) (vector 8 1 0 (vector 5 ) (lambda (_-8288) (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 (_-8304) (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 (_-17191) (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 (_-17210) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (iname) (vector 7 1 (Source-Rule-Parser-symbol "]") (lambda () (lambda (_-17227) (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 (_-17290) (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 (_-17327) (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 (_-17340) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-16674) (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 (_-16707) (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 (_-16723) (vector 7 1 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-16732) (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 (_-16824) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16841) (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 (_-16857) (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 (_-16922) (vector 8 1 0 (vector 5 ) (lambda (_-16931) (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 (_-16974) (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 (_-16993) (vector 8 1 1 (Parser-Text-option 'erased 'erased 0 (vector 0 ) (vector 7 0 (Source-Rule-Parser-exactIdent "constructor") (lambda () (lambda (_-17011) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-12034) (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 (_-12049) (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 (_-12064) (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 (_-12079) (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 (_-7805) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 1 (Source-Rule-Parser-symbol "`") (lambda () (lambda (_-7822) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))))) ((equal? sc1 1) (vector 0 (Semiring-Algebra-linear 'erased (vector 0 (lambda (arg-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (_-14370) (vector 8 1 0 (vector 5 ) (lambda (_-14379) (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 (_-10949) (vector 8 1 0 (vector 5 ) (lambda (_-10958) (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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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 (_-10998) (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 (_-16387) (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 (_-16373) (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 (_-16359) (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 (_-16332) (vector 8 1 1 (vector 5 ) (lambda (_-16341) (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 (_-16305) (vector 8 1 1 (vector 5 ) (lambda (_-16314) (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 (_-16291) (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 (_-16276) (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 (_-16248) (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 (_-16222) (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 (_-18320) (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 (_-15428) (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 (_-15416) (vector 0 (vector 1 ))))) (lambda () (vector 9 0 0 (vector 7 1 (Source-Rule-Parser-keyword "infix") (lambda () (lambda (_-15404) (vector 0 (vector 2 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-keyword "prefix") (lambda () (lambda (_-15392) (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 (_-17595) (vector 8 1 0 (vector 5 ) (lambda (_-17604) (vector 7 0 (Parser-Idris-n--19084-17406-fieldBody arg-1 arg-0 (vector 0 )) (lambda () (lambda (fs) (vector 7 1 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-17622) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17630) (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--19084-17406-fieldBody arg-1 arg-0 (vector 1 )) (lambda () (lambda (fs) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-17567) (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--10373-12187-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--10373-12188-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 (_-12269) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-12255) (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 (_-12269) (vector 0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "$=") (lambda () (lambda (_-12255) (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 (_-14614) (vector 0 (vector 0 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "Borrowing") (lambda () (lambda (_-14602) (vector 0 (vector 1 )))))))))
(define Parser-Idris-exprArgCmd (lambda (arg-0 arg-1 arg-2) (vector 0 (Parser-Idris-n--21961-20437-names arg-2 arg-1 arg-0) (vector 0 (vector 2 ) (vector 0 arg-2 (Parser-Idris-n--21961-20438-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 (_-10669) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-10685) (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 (_-20207) (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 (_-20128) (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 (_-20147) (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 (_-20061) (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 (_-20080) (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 (_-19992) (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 (_-20011) (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 (_-19920) (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 (_-19939) (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 (_-19853) (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 (_-19872) (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 (_-19786) (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 (_-19805) (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 (_-19716) (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 (_-19735) (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 (_-19646) (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 (_-19665) (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 (_-8829) (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 (_-8853) (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 (_-8776) (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 (_-12396) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-12859) (vector 7 0 (Source-Rule-Parser-symbol "<-") (lambda () (lambda (_-12869) (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 (_-12892) (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 (_-12810) (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 (_-12826) (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 (_-12726) (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 (_-12758) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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 (_-12672) (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 (_-12695) (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 (_-12633) (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 (_-12553) (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 (_-12592) (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 (_-18404) (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 (_-18427) (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 (_-15341) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15357) (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 (_-15306) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15322) (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 (_-15275) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15290) (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 (_-15244) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15259) (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 (_-15213) (vector 7 1 (Parser-Idris-onoff) (lambda () (lambda (b) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15228) (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 (_-15178) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (lvl) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15194) (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 (_-15143) (vector 7 1 (Source-Rule-Parser-intLit) (lambda () (lambda (dpt) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15159) (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 (_-15090) (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 (_-15122) (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 (_-15047) (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 (_-15071) (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 (_-15014) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-15030) (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 (_-14981) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14997) (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 (_-14948) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14964) (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 (_-14902) (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 (_-14930) (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 (_-14871) (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 (_-14886) (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 (_-14838) (vector 7 1 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14854) (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 (_-14807) (vector 7 1 (Parser-Idris-extension) (lambda () (lambda (e) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14822) (vector 0 (vector 14 e)))))))))) (lambda () (vector 7 0 (Source-Rule-Parser-pragma "default") (lambda () (lambda (_-14776) (vector 7 1 (Parser-Idris-totalityOpt) (lambda () (lambda (tot) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-1) (lambda (_-14791) (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 (_-10842) (vector 7 0 (Source-Rule-Parser-keyword "default") (lambda () (lambda (_-10850) (vector 8 1 0 (vector 5 ) (lambda (_-10859) (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 (_-10882) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10891) (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--22008-20490-names arg-2 arg-1 arg-0) (vector 0 (vector 3 ) (vector 0 arg-2 (Parser-Idris-n--22008-20491-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 (_-14203) (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 (_-14191) (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 (_-14166) (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 (_-14154) (vector 0 (vector 3 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-exactIdent "noNewtype") (lambda () (lambda (_-14142) (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 (_-14419) (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 (_-14339) (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 (_-14228) (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 (_-14247) (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 (_-14268) (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 (_-7789) (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 (_-16631) (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 (_-16543) (vector 7 0 (Source-Rule-Parser-name) (lambda () (lambda (n) (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-16560) (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 (_-16576) (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-16585) (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--22150-20651-names arg-2 arg-1 arg-0) (vector 0 (vector 6 ) (vector 0 arg-2 (Parser-Idris-n--22150-20652-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 (_-7754) (vector 7 1 (Source-Rule-Parser-keyword arg-1) (lambda () (lambda (_-7762) (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 (_-21052) (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 (_-21039) (vector 0 (vector 10 ))))) (lambda () (vector 9 (Prelude-C-124C-124 0 (lambda () 0)) 0 (vector 7 0 (Source-Rule-Parser-symbol ":") (lambda () (lambda (_-21017) (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--9823-18990 e-5 e-4 e-3 (Parser-Idris-n--9823-18848-spanMap e-5 e-4 e-3 'erased 'erased (lambda (eta-0) (Parser-Idris-n--9823-18849-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--15559-13705-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--15559-13704-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 (_-11720) (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 (_-11735) (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 (_-11970) (vector 8 1 0 (Source-Rule-Parser-mustContinue arg-2 (vector 0 )) (lambda (_-11979) (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 (_-12002) (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 (_-11947) (vector 8 1 1 (Source-Rule-Parser-atEnd arg-2) (lambda (_-11955) (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--10365-11471 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 (_-8992) (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 (_-8955) (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 (_-8941) (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 (_-9040) (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 (_-10645) (vector 0 (vector 1 ))))) (lambda () (vector 7 1 (Source-Rule-Parser-symbol "=>") (lambda () (lambda (_-10630) (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 (_-10371) (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 (_-10743) (vector 7 0 (Source-Rule-Parser-keyword "auto") (lambda () (lambda (_-10751) (vector 8 1 0 (vector 5 ) (lambda (_-10760) (vector 7 0 (Parser-Idris-pibindList arg-0 start arg-1) (lambda () (lambda (binders) (vector 7 0 (Source-Rule-Parser-symbol "}") (lambda () (lambda (_-10776) (vector 7 0 (Source-Rule-Parser-symbol "->") (lambda () (lambda (_-10785) (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 (_-7519) (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 (_-7585) (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 (_-7609) (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 (_-7653) (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 (_-7677) (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 (_-7701) (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 (_-8154) (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 (_-8130) (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--10338-8196 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--10337-7949-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--13331-11948 (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-11968) (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-12014) (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-12048) (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-12077) (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-12105) (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-12133) (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-12161) (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-12189) (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-12217) (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-12245) (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-12273) (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-12301) (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-12329) (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-12357) (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-12388) (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-12417) (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--13331-11889 (lambda (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--13331-11767 (lambda (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))) (let ((e-6 (vector-ref sc0 7))) (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 e-6)))))))))))
(define Desugar-Idris-case--13331-11706 (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))) (vector 0 e-0 (StringMap-Data-insert 'erased arg-0 arg-1 e-1) e-2 e-3 e-4 e-5 e-6)))))))))))
(define Desugar-Idris-case--18929-11578 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--18482-11514 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--18775-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 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--18685-11400 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--13331-10999-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--18775-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 conname conname eta-0)))))
(define Desugar-Idris-case--18536-11326 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13331-10998-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--18685-11400 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--18536-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) (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--18482-11215 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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--18536-11326 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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--18436-11174 (lambda (arg-0 arg-1 arg-2 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--18482-11215 arg-0 arg-1 arg-2 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--13331-11138 (lambda (arg-0 arg-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--13331-10998-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--18436-11174 arg-0 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--13331-11073 (lambda (arg-0 arg-1 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--13331-11000-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--17601-10864 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--17792-10739 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-10818) (lambda (nest) (lambda (env) (Implementation-Elab-Idris-elabImplementation vars-10818 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--17792-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 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--17601-10604 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--17792-10739 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--17601-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) (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--17525-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 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--17601-10604 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--17375-10404 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--17525-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 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--17375-10344 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13331-10291 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--17375-10404 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--13331-10227 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13331-9831 (lambda (arg-0 arg-1 arg-2 arg-3 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-4 (vector-ref sc0 5))) (let ((e-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 arg-9 e-6))))))))))
(define Desugar-Idris-case--13331-9798 (lambda (arg-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-6 (vector-ref sc0 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (List-Prelude-C-43C-43 'erased arg-10 arg-9) e-6))))))))))
(define Desugar-Idris-case--13310-9006 (lambda (arg-0 arg-1 arg-2 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--15841-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) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) arg-14))))))
(define Desugar-Idris-case--13310-8862 (lambda (arg-0 arg-1 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased)))) arg-10) e-5)))))))))))))))))
(define Desugar-Idris-case--13294-8518 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--13294-8354 (lambda (arg-0 arg-1 arg-2 arg-3 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--13294-8236 (lambda (arg-0 arg-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--13276-8024 (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--13276-7966 (lambda (arg-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--13276-7641 (lambda (arg-0 arg-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--13276-7534 (lambda (arg-0 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))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 1 arg-0) e-4) e-5 e-6)))))))))))
(define Desugar-Idris-case--13276-7388 (lambda (arg-0 arg-1 arg-2 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--13276-7333 (lambda (arg-0 arg-1 arg-2 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--13276-7268 (lambda (arg-0 arg-1 arg-2 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--13276-7174 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--12919-6371 (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--12943-6231 (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--12919-6189-backtickPrec arg-0 arg-1 arg-2 arg-3 arg-4)) e-5))))))))))))))
(define Desugar-Idris-case--12919-6206 (lambda (arg-0 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--12943-6231 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--12870-6167 (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))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-13 (vector-ref sc1 1))) e-13)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc1 arg-0)) (let ((e-12 (vector-ref sc1 2))) e-12)) e-1) (ANameMap-Data-merge 'erased (let ((sc1 arg-0)) (let ((e-11 (vector-ref sc1 3))) e-11)) e-2) e-3 (List-Prelude-C-43C-43 'erased (let ((sc1 arg-0)) (let ((e-9 (vector-ref sc1 5))) e-9)) e-4) e-5 e-6)))))))))))
(define Desugar-Idris-n--13276-7919-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--13331-9423-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--13331-9422-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--13331-9422-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--13331-9422-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--13331-9864-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--13331-9864-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--13331-9864-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--13325-9225-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--13325-9225-mkRecType arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 e-3))))))))))))))))))
(define Desugar-Idris-n--13331-10999-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--13331-11000-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--13276-7918-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--13331-9422-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--13331-9422-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--13331-9422-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--13331-10998-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--13331-9865-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--13331-9864-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--12919-6189-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--12919-6206 e-3 e-2 e-1 e-0 arg-0 e-5 op (StringMap-Data-lookup 'erased op (let ((sc2 e-5)) (let ((e-11 (vector-ref sc2 1))) e-11)))) 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--12919-6371 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--13325-9225-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-extendSyn (lambda (arg-0 arg-1 ext-0) (let ((act-24 (let ((act-24 (unbox arg-0))) (vector 1 act-24)))) (let ((sc0 act-24)) (case (vector-ref sc0 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))) (let ((e-6 (vector-ref sc1 7))) (vector 0 (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-1)) (let ((e-14 (vector-ref sc2 1))) e-14)) e-0) (StringMap-Data-mergeLeft 'erased (let ((sc2 arg-1)) (let ((e-13 (vector-ref sc2 2))) e-13)) e-1) (ANameMap-Data-merge 'erased (let ((sc2 arg-1)) (let ((e-12 (vector-ref sc2 3))) e-12)) e-2) e-3 (List-Prelude-C-43C-43 'erased (let ((sc2 arg-1)) (let ((e-10 (vector-ref sc2 5))) e-10)) e-4) e-7 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-8 (vector-ref sc3 6))) e-8)) 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 6))) 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--13331-9423-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-7 (vector-ref sc2 6))) e-7)))) (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-4 (vector-ref sc3 5))) (let ((e-7 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 (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-4 (vector-ref sc6 5))) (let ((e-10 (vector-ref sc6 7))) (vector 0 e-0 e-1 e-2 e-3 e-4 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (eta-0) (Desugar-Idris-n--13331-9865-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-10011) (lambda (nest) (lambda (env) (lambda (eta-1) (Interface-Elab-Idris-elabInterface vars-10011 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--13331-10291 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--13331-11000-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--13331-11138 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-7 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (vector 0 e-0 (StringMap-Data-insert 'erased e-62 e-46 e-1) e-2 e-3 e-4 e-7 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-7 (vector-ref sc4 6))) (let ((e-6 (vector-ref sc4 7))) (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-7 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-7 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (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-7 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-11968) (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-12014) (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-12048) (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-12077) (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-12105) (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-12133) (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-12161) (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-12189) (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-12217) (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-12245) (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-12273) (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-12301) (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-12329) (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-12357) (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-12388) (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-12417) (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 6))) 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-11 (vector-ref sc3 6))) e-11)) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--13276-7174 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-7 (vector-ref sc3 6))) (let ((e-6 (vector-ref sc3 7))) (vector 0 e-0 e-1 e-2 e-3 (vector 1 (vector 1 e-80) e-4) e-7 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--13276-7918-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--13276-7919-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--2396-1273 (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--2257-1018 (lambda (arg-0 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--2064-898 (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--2064-829 (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--2396-1174-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--2396-1173-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--2396-1172-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--2396-1172-sloc 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2396-1173-sop 'erased 'erased arg-2 arg-4 arg-3 'erased 'erased 'erased s) (Shunting-Utils-n--2396-1174-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--2064-829 '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--2064-898 '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--13565-2781 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 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-1 (vector-ref sc0 1))) (let ((implParams (Interface-Elab-Idris-getImplParams 'erased e-1))) (lambda (eta-0) (Interface-Elab-Idris-updateIfaceSyn arg-14 arg-12 arg-16 arg-18 implParams (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-3) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-snd 'erased 'erased eta-1)) arg-5) arg-27 arg-26 eta-0))))) (else (lambda (eta-0) (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-10 arg-4) eta-0)))))))
(define Interface-Elab-Idris-case--13565-2625 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-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--13589-2334 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13589-2117 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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--13589-1962-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--13589-1964-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--13919-1988 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--13400-1554 (lambda (arg-0 arg-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)) (let ((e-0 (vector-ref sc0 1))) (let ((e-1 (vector-ref sc0 2))) (let ((e-2 (vector-ref sc0 3))) (let ((e-3 (vector-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 (ANameMap-Data-addName 'erased arg-6 arg-11 e-2) (vector 1 arg-6 e-3) e-4 e-5 e-6)))))))))))
(define Interface-Elab-Idris-case--12854-1100 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--12663-801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12623-787-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--12623-787-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--12301-647 (lambda (arg-0 arg-1 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--13400-1475-totMeth (lambda (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 ((treq (Interface-Elab-Idris-n--13400-1474-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--12623-787-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--12663-801 '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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) n arg-13))) e-3)))))))))(else arg-14)))))
(define Interface-Elab-Idris-n--13587-1658-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--13565-1623-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--13565-1623-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--12301-466-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--12301-466-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--12854-987-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--12854-987-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--12854-989-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--12854-988-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--12301-463-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) e-3)))))))
(define Interface-Elab-Idris-n--12854-986-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--12854-986-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--12854-986-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--13400-1474-findSetTotal (lambda (arg-0 arg-1 arg-2 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) ((7) (let ((e-4 (vector-ref sc1 1))) (vector 1 e-4)))(else (Interface-Elab-Idris-n--13400-1474-findSetTotal arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 e-3)))))))))))
(define Interface-Elab-Idris-n--13565-1625-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--13565-1626-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--13589-2334 arg-0 arg-1 arg-2 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) 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--13589-1962-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--13589-1964-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--13565-1627-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--13565-1623-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--13565-1624-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 (vector 0 ) c)))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13587-1658-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--13163-1254-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--13163-1253-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--13589-1963-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--13919-1988 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--13589-1963-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--13589-1963-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--13589-1964-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--13589-1963-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--13589-1963-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--13589-1964-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--13589-1963-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--12301-464-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
(define Interface-Elab-Idris-n--12854-984-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega))) (vector 0 ) (vector 1 e-6) e-7 (Interface-Elab-Idris-n--12854-984-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--13163-1253-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--13163-1253-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--12854-988-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--12854-988-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--12301-465-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)))) e-7)))))))))))
(define Interface-Elab-Idris-n--13589-1962-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--13589-1962-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--13589-1962-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--12854-985-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 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 ((Core-Core-traverse 'erased 'erased (lambda (eta-0) (Interface-Elab-Idris-n--13400-1475-totMeth arg-8 arg-7 arg-6 arg-5 arg-4 arg-3 arg-2 arg-1 arg-0 eta-0)) 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 ((info (vector 0 arg-3 arg-4 arg-5 arg-6 e-6 arg-8))) (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-8 (vector-ref sc2 6))) (let ((e-7 (vector-ref sc2 7))) (vector 0 e-0 e-1 (ANameMap-Data-addName 'erased arg-2 info e-2) (vector 1 arg-2 e-3) e-4 e-8 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--12301-647 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--12301-466-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--12301-463-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--12301-466-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--12301-465-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--12301-464-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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (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--12854-984-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--12854-985-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--12854-988-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--12854-986-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--12854-987-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--12854-989-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--12623-787-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-getImplParams (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) ((2) (let ((e-7 (vector-ref sc1 2))) (let ((sc2 e-7)) (case (vector-ref sc2 0) ((0) (vector 1 e-2 (Interface-Elab-Idris-getImplParams 'erased e-4)))(else (vector 0 ))))))(else (vector 0 ))))))))(else (vector 0 ))))))
(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--13163-1253-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--13163-1254-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 ((act-25 ((Context-Core-inCurrentNS 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 ((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-26 ((Context-Core-inCurrentNS arg-1 conName_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 ((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 ((sc3 lamc-0)) (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))) (vector 0 e-14 (vector 0 e-9 (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-27 (Interface-Elab-Idris-n--13565-1624-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-7 meth_names meth_sigs 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--13565-1627-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-7 meth_names) 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 (Interface-Elab-Idris-n--13565-1625-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-7 meth_names meth_sigs 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) (Interface-Elab-Idris-n--13565-1626-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 ((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 (mt) (lambda (eta-0) (let ((act-31 ((Context-Core-inCurrentNS arg-1 (Builtin-fst 'erased 'erased mt)) 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 (vector 0 e-12 (Builtin-snd 'erased 'erased mt)))))))))) meth_decls) 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 (let ((act-32 (unbox arg-1))) (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 (Context-Core-lookupTyExact e-6 (let ((sc9 e-13)) (let ((e-0 (vector-ref sc9 1))) e-0)) 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 ((sc10 e-14)) (case (vector-ref sc10 0) ((1) (let ((e-1 (vector-ref sc10 1))) (let ((implParams (Interface-Elab-Idris-getImplParams 'erased e-1))) (Interface-Elab-Idris-updateIfaceSyn arg-1 arg-3 e-6 e-7 implParams (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-12 e-11 ext-0)))) (else (Core-Core-throw_Catchable__Core_Error 'erased (vector 7 arg-5 arg-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--15347-9620 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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-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--12914-7345-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-47 arg-30 (let ((sc7 arg-25)) (let ((e-1 (vector-ref sc7 2))) e-1)) (let ((sc7 arg-25)) (let ((e-13 (vector-ref sc7 3))) e-13)) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) (let ((sc7 arg-25)) (let ((e-4 (vector-ref sc7 5))) e-4))) (let ((sc7 arg-25)) (let ((e-4 (vector-ref sc7 5))) e-4))) 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--12914-7346-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-25)) (let ((e-0 (vector-ref sc9 1))) e-0)))) (let ((ilhs (Implementation-Elab-Idris-n--12914-7337-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-47))))) (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-28 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--12914-7336-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-25)) (let ((e-17 (vector-ref sc12 4))) e-17))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Implementation-Elab-Idris-n--12914-7340-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-47 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--12914-7347-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--12914-7351-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--12914-7352-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-25)) (let ((e-4 (vector-ref sc22 5))) e-4))) 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--14867-9470 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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) (let ((sc0 arg-45)) (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--15347-9620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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 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-25)) (let ((e-4 (vector-ref sc3 5))) e-4))) (let ((sc3 arg-25)) (let ((e-7 (vector-ref sc3 6))) e-7)) arg-43)) 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--14867-9301 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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) (Utils-TTImp-findBindableNames 0 arg-7 (vector 0 ) arg-36)) (else (vector 0 ))))))
(define Implementation-Elab-Idris-case--14778-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 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28) (let ((sc0 arg-28)) (case (vector-ref sc0 0) ((1) (let ((e-1 (vector-ref sc0 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-24))) 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))) (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-25)) (let ((e-2 (vector-ref sc2 3))) e-2))) (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-25)) (let ((e-3 (vector-ref sc2 4))) e-3))) (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-25)) (let ((e-4 (vector-ref sc2 5))) e-4))) (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-25)) (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--15347-9620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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-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-25)) (let ((e-4 (vector-ref sc14 5))) e-4))) (let ((sc14 arg-25)) (let ((e-16 (vector-ref sc14 6))) e-16)) 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-25)) (let ((e-0 (vector-ref sc1 1))) e-0))) eta-0)))))))
(define Implementation-Elab-Idris-case--14692-8982 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 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))) (lambda (eta-0) (let ((act-24 (Context-Core-lookupTyExact (let ((sc1 arg-25)) (let ((e-0 (vector-ref sc1 1))) e-0)) (let ((sc1 arg-21)) (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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-24))) 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-25)) (let ((e-8 (vector-ref sc4 3))) 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-25)) (let ((e-3 (vector-ref sc4 4))) e-3))) (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-25)) (let ((e-4 (vector-ref sc4 5))) e-4))) (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-25)) (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--15347-9620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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 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-25)) (let ((e-4 (vector-ref sc16 5))) e-4))) (let ((sc16 arg-25)) (let ((e-17 (vector-ref sc16 6))) e-17)) 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-25)) (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-24) eta-0)))))))
(define Implementation-Elab-Idris-case--12914-8918 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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 ((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 (Context-Core-lookupTyExact cn (let ((sc2 arg-21)) (let ((e-0 (vector-ref sc2 1))) e-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-5 (vector-ref sc2 1))) (let ((sc3 e-5)) (case (vector-ref sc3 0) ((1) (let ((e-3 (vector-ref sc3 1))) (let ((act-25 (Context-Core-lookupTyExact (let ((sc4 cdata)) (let ((e-0 (vector-ref sc4 1))) e-0)) (let ((sc4 arg-21)) (let ((e-0 (vector-ref sc4 1))) e-0)) eta-0))) (let ((sc4 act-25)) (case (vector-ref sc4 0) ((0) (let ((e-4 (vector-ref sc4 1))) (vector 0 e-4))) (else (let ((e-6 (vector-ref sc4 1))) (let ((_-0 (vector 1 e-3))) (let ((sc5 e-6)) (case (vector-ref sc5 0) ((1) (let ((e-4 (vector-ref sc5 1))) (let ((impsp (List-Data-nub 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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-26 (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 ((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 ((act-27 (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 ((sc7 cdata)) (let ((e-11 (vector-ref sc7 3))) e-11))) (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 ((sc7 cdata)) (let ((e-10 (vector-ref sc7 4))) e-10))) (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 ((sc7 cdata)) (let ((e-9 (vector-ref sc7 5))) e-9))) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 "Constructor: " (Strings-Prelude-C-43C-43 (Name-Core-show_Show__Name (let ((sc7 cdata)) (let ((e-0 (vector-ref sc7 1))) e-0))) "\xa;")))))))))))) 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-logTerm (vector 0 ) arg-17 (+ 1 (+ 1 (+ 1 0))) (lambda () "Constructor type: ") e-4 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-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 ((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 ((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-30 (Context-Core-isUnboundImplicits arg-17 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 ((paramBinds (let ((sc11 e-11)) (cond ((equal? sc11 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-31 (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 ((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 ((act-32 (let ((sc12 (Syntax-Idris-typePass arg-10))) (cond ((equal? sc12 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 ((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 ((sc13 (Syntax-Idris-defPass arg-10))) (cond ((equal? sc13 0) ((Prelude-maybe 'erased 'erased (lambda () (lambda (eta-1) (vector 1 (vector 0 )))) (lambda () (lambda (body_in) (lambda (eta-1) (let ((act-33 (let ((act-33 (unbox arg-17))) (vector 1 act-33)))) (let ((sc14 act-33)) (case (vector-ref sc14 0) ((0) (let ((e-14 (vector-ref sc14 1))) (vector 0 e-14))) (else (let ((e-14 (vector-ref sc14 1))) (let ((act-34 (Context-Core-lookupTyExact arg-19 (let ((sc15 e-14)) (let ((e-0 (vector-ref sc15 1))) e-0)) eta-1))) (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 ((_-1 (vector 1 e-4))) (let ((sc16 e-15)) (case (vector-ref sc16 0) ((1) (let ((e-16 (vector-ref sc16 1))) (let ((act-35 ((Implementation-Elab-Idris-getMethImps (vector 0 ) arg-17 (vector 0 ) e-16) eta-1))) (let ((sc17 act-35)) (case (vector-ref sc17 0) ((0) (let ((e-17 (vector-ref sc17 1))) (vector 0 e-17))) (else (let ((e-17 (vector-ref sc17 1))) (let ((act-36 (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-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 ((_-2 (vector 1 e-16))) ((Implementation-Elab-Idris-case--15347-9620 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 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 cn cdata e-3 _-0 e-4 _-1 impsp e-7 e-8 e-9 e-10 opts initTy e-11 paramBinds impTy impTyDecl e-12 e-13 body_in e-14 e-16 _-2 e-17 e-18 (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 ((sc19 cdata)) (let ((e-20 (vector-ref sc19 5))) e-20))) (let ((sc19 cdata)) (let ((e-19 (vector-ref sc19 6))) e-19)) 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 ((sc6 cdata)) (let ((e-0 (vector-ref sc6 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-23)) 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-23)) eta-0)))))))
(define Implementation-Elab-Idris-case--12954-8689 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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--12950-8431 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--12947-8302 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 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 ((Implementation-Elab-Idris-n--12914-7345-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-26) 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--13338-8044 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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) (let ((sc0 arg-51)) (cond ((equal? sc0 0) (vector 0 )) (else (vector 1 (vector 0 arg-30 (Implementation-Elab-Idris-n--12914-7337-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-30) (Prelude-map_Functor__List 'erased 'erased (lambda (x) (vector 0 x (vector 16 arg-13 (Name-Core-show_Show__Name x)))) arg-50))) (vector 0 )))))))
(define Implementation-Elab-Idris-case--12946-7716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 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))) (let ((mty_in (Utils-TTImp-substNames arg-7 arg-29 e-2))) (let ((mty_iparams (Utils-TTImp-substBindVars arg-7 (Prelude-map_Functor__List 'erased 'erased (lambda (n) (vector 0 n (vector 31 arg-13 1))) arg-25) mty_in))) (let ((mty_params (Utils-TTImp-substNames arg-7 (List-Data-zip 'erased 'erased arg-24 arg-3) mty_iparams))) (lambda (eta-0) (let ((act-24 (Context-Core-log arg-17 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "Substitute implicits " (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)))) arg-25) (Strings-Prelude-C-43C-43 " parameters " (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) (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)))) (List-Data-zip 'erased 'erased arg-24 arg-3)) (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (TTImp-TTImp-show_Show__RawImp mty_in) (Strings-Prelude-C-43C-43 " is " (TTImp-TTImp-show_Show__RawImp mty_params))))))))) eta-0))) (let ((sc1 act-24)) (case (vector-ref sc1 0) ((0) (let ((e-4 (vector-ref sc1 1))) (vector 0 e-4))) (else (let ((e-5 (vector-ref sc1 1))) (let ((mbase (Implementation-Elab-Idris-n--12914-7343-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-27 (Implementation-Elab-Idris-bindConstraints arg-13 (vector 2 ) arg-5 mty_params)))) (let ((ibound (TTImp-TTImp-findImplicits mbase))) (let ((act-25 (BindImplicits-TTImp-bindTypeNamesUsed arg-17 ibound arg-7 mbase eta-0))) (let ((sc2 act-25)) (case (vector-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 "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-30) (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 ((e-7 (vector-ref sc3 1))) (let ((act-27 (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 ((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 "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-29))) 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 (+ 1 (+ 1 0))))) (lambda () (Strings-Prelude-C-43C-43 "From " (TTImp-TTImp-show_Show__RawImp mbase))) 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 "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 ((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 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 ((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-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 ((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 ((ibinds (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) arg-27))) (let ((methupdsC-39 (Implementation-Elab-Idris-case--13338-8044 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 arg-14 arg-15 arg-16 arg-17 arg-18 arg-19 arg-20 arg-21 arg-22 arg-23 arg-24 arg-25 arg-26 arg-27 arg-28 arg-29 arg-30 arg-31 arg-32 arg-33 e-2 e-3 mty_in mty_iparams mty_params e-5 mbase ibound e-6 e-7 e-8 e-9 e-10 e-11 e-12 e-13 ibinds (List-Data-isNil 'erased ibinds)))) (vector 1 (vector 0 (vector 0 arg-18 (vector 0 arg-30 (vector 0 e-3 (vector 0 arg-19 (vector 0 arg-20 e-6))))) methupdsC-39))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
(define Implementation-Elab-Idris-case--12723-7164 (lambda (arg-0 arg-1 arg-2 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--12717-7143-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--12717-7143-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--12914-7350-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--12914-7349-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--12914-7349-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--12914-7350-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--12914-7349-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--12914-7351-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--12914-7350-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--12914-7348-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--12914-7349-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--12914-7348-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--12914-7349-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--12914-7349-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--12914-7345-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 arg-25) (let ((sc0 arg-25)) (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--12914-7344-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 arg-24 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--12914-7345-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 arg-24 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--12914-7344-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 arg-25) (let ((sc0 arg-25)) (let ((e-2 (vector-ref sc0 1))) (let ((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--12914-7341-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--12914-7342-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-24) 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--12946-7716 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-24 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--12914-7346-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--12914-7340-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--12942-7524-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--12914-7338-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--12914-7337-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--12914-7339-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--12914-7338-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--12914-7338-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--12914-7347-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--12914-7341-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--12914-7341-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--12914-7337-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--12914-7337-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--12914-7336-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--12938-7363-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--12914-7336-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--12938-7363-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--12938-7363-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--12914-7348-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--12950-8431 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) arg-20 arg-18))))
(define Implementation-Elab-Idris-n--12717-7143-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--12723-7164 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) e-2 arg-1)))))))))
(define Implementation-Elab-Idris-n--12717-7144-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--12717-7144-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--12717-7144-dropGot arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 e-3)))))))))))
(define Implementation-Elab-Idris-n--12914-7343-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--12914-7343-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--12942-7524-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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) e-4 arg-20)))))(else arg-26)))))(else arg-26))))))(else arg-26)))))
(define Implementation-Elab-Idris-n--12914-7339-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--12914-7339-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--12914-7339-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--12914-7339-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--12914-7339-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--12914-7342-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--12914-7341-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--12914-7352-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--12954-8689 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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))) (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-lookupCtxtName arg-13 (let ((sc3 e-7)) (let ((e-0 (vector-ref sc3 1))) e-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))) ((Implementation-Elab-Idris-case--12914-8918 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 e-7 e-8 ((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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (Prelude-neutral_Monoid__C-40ListC-32C-36aC-41 'erased))) (lambda (n) (ANameMap-Data-lookupName 'erased n (let ((sc4 e-6)) (let ((e-2 (vector-ref sc4 3))) e-2))))) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-1) (Builtin-fst 'erased 'erased eta-1)) e-8))) 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--12717-7144-dropGot arg-4 arg-3 arg-2 arg-1 arg-0 arg-2 arg-4))) (Implementation-Elab-Idris-n--12717-7143-extendBody arg-4 arg-3 arg-2 arg-1 arg-0 (vector 0 ) missing arg-4))))
(define ModTree-Idris-case--14192-3343 (lambda (arg-0 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--14110-3271 (lambda (arg-0 arg-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--13520-3145 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--13641-2900 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 arg-12 arg-13 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--13520-2828 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11 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--13318-2716 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--13329-2624 (lambda (arg-0 arg-1 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--13329-2572 (lambda (arg-0 arg-1 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--13238-2480 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--13225-2461 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--13098-2359 (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--12986-2233 (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--12783-2114 (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--12783-2061 (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--12769-2019 (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--12783-2114 arg-0 arg-1 arg-2 arg-3 arg-4 e-5 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) 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--13318-2542-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--13329-2572 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-6 e-3 (ModTree-Idris-n--13318-2542-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--13329-2624 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-9 e-3 (ModTree-Idris-n--13318-2542-getEithers arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 'erased 'erased e-3)))))))))))))
(define ModTree-Idris-n--14369-3491-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--14369-3491-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--12769-2019 arg-4 arg-3 arg-2 arg-1 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) 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--12986-2233 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--13098-2359 arg-4 arg-3 arg-2 arg-1 arg-0 e-5 e-6 e-7 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-438) (lambda (arg-439) (Prelude-C-61C-61_Eq__String arg-438 arg-439))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__C-40ListC-32C-36aC-41 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-440) (lambda (arg-441) (Prelude-C-47C-61_Eq__String arg-440 arg-441)))) arg-438 arg-439)))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--13318-2716 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--13318-2542-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--14369-3491-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--9047-3182 (lambda (arg-0 arg-1 arg-2 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--8961-3142 (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--8856-3010-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2))))))))
(define Holes-IDEMode-Idris-case--8856-3093 (lambda (arg-0 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--8856-3010-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 e-2)))))))))))
(define Holes-IDEMode-Idris-case--8870-3032 (lambda (arg-0 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--8856-3010-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--8856-3010-dropShadows arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-9)))))))
(define Holes-IDEMode-Idris-case--8701-2918 (lambda (arg-0 arg-1 arg-2 arg-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--8611-2866 (lambda (arg-0 arg-1 arg-2 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--8611-2812-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--8506-2706 (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--8503-2685 (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--8506-2706 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--8611-2812-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--8856-3010-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--8870-3032 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-436) (lambda (arg-437) (Name-Core-C-61C-61_Eq__Name arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Name-Core-C-47C-61_Eq__Name arg-438 arg-439)))) (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--9047-3182 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-256) (lambda (arg-257) (ZeroOneOmega-Algebra-C-124C-43C-124_Semiring__ZeroOneOmega arg-256 arg-257))) (ZeroOneOmega-Algebra-plusNeutral_Semiring__ZeroOneOmega) (lambda (arg-258) (lambda (arg-259) (ZeroOneOmega-Algebra-C-124C-42C-124_Semiring__ZeroOneOmega arg-258 arg-259))) (ZeroOneOmega-Algebra-timesNeutral_Semiring__ZeroOneOmega)) (vector 0 (lambda (arg-436) (lambda (arg-437) (ZeroOneOmega-Algebra-C-61C-61_Eq__ZeroOneOmega arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (ZeroOneOmega-Algebra-C-47C-61_Eq__ZeroOneOmega arg-438 arg-439))))) " 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--8503-2685 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--8856-3093 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--8611-2866 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--2828-7524 (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 (MakeClause-IDEMode-Idris-n--2822-7467-addCase arg-0 arg-1 arg-2 arg-6 arg-4) (Prelude-pack (List-Data-drop 'erased (Prelude-length arg-5) (Prelude-unpack arg-3))))) (else (Prelude-strCons (string-ref arg-3 0) (MakeClause-IDEMode-Idris-n--2822-7468-replaceStr arg-0 arg-1 arg-2 (Prelude-C-43_Num__Nat (Prelude-fromInteger_Num__Nat 1) arg-6) arg-5 arg-4 (substring arg-3 1 (string-length arg-3)))))))))
(define MakeClause-IDEMode-Idris-case--2827-7492 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5) (let ((sc0 arg-2)) (cond ((equal? sc0 0) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (else (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))))
(define MakeClause-IDEMode-Idris-case--2771-7434 (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--2706-7420 (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--2771-7434 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--2706-7359-readLHS arg-0 arg-1 0 (Prelude-unpack src))))) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2706-7361-mkWithArg arg-0 arg-1 e-2 indent lhs) (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2706-7362-mkWithPat arg-0 arg-1 e-2 indent lhs) "\xa;"))))))))))))
(define MakeClause-IDEMode-Idris-case--2681-7346 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (cond ((equal? sc0 0) "op") (else arg-1)))))
(define MakeClause-IDEMode-Idris-n--2822-7468-replaceStr (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6) (let ((sc0 arg-6)) (cond ((equal? sc0 "") "")(else (MakeClause-IDEMode-Idris-case--2828-7524 arg-0 arg-1 arg-2 arg-6 arg-5 arg-4 arg-3 (Strings-Data-isPrefixOf arg-4 arg-6)))))))
(define MakeClause-IDEMode-Idris-n--2706-7359-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--2706-7359-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc3 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc3 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2706-7359-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--2706-7359-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc2 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc2 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2706-7359-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--2706-7359-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\{) (vector 1 #\{ (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (+ 1 arg-2) e-2))) ((equal? sc1 #\)) (vector 1 #\) (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2))) ((equal? sc1 #\}) (vector 1 #\} (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 (Nat-Data-pred arg-2) e-2)))(else (vector 1 e-1 (MakeClause-IDEMode-Idris-n--2706-7359-readLHS arg-0 arg-1 arg-2 e-2)))))))) (else (vector 0 )))))))))
(define MakeClause-IDEMode-Idris-n--2706-7360-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--2822-7469-newLines (lambda (arg-0 arg-1 arg-2 arg-3) (MakeClause-IDEMode-Idris-n--2822-7468-replaceStr arg-0 arg-1 arg-2 0 (Strings-Prelude-C-43C-43 "?" (Name-Core-show_Show__Name arg-1)) arg-3 arg-0)))
(define MakeClause-IDEMode-Idris-n--2706-7362-mkWithPat (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2706-7360-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--2706-7361-mkWithArg (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (Strings-Prelude-C-43C-43 (MakeClause-IDEMode-Idris-n--2706-7360-pref arg-0 arg-1 arg-2 arg-3) (Strings-Prelude-C-43C-43 arg-4 "with (_)"))))
(define MakeClause-IDEMode-Idris-n--2822-7467-addCase (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))) (MakeClause-IDEMode-Idris-n--2822-7466-addBrackets arg-0 arg-1 arg-2 arg-2 (Strings-Prelude-C-43C-43 e-2 (Strings-Prelude-C-43C-43 "\xa;" (Strings-Prelude-C-43C-43 (Prelude-pack (List-Data-replicate 'erased (Prelude-C-43_Num__Nat arg-3 (let ((sc1 arg-2)) (cond ((equal? sc1 0) (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))) (else (+ 1 (+ 1 (+ 1 (+ 1 (+ 1 0))))))))) #\ )) e-3)))))))))
(define MakeClause-IDEMode-Idris-n--2822-7466-addBrackets (lambda (arg-0 arg-1 arg-2 arg-3 arg-4) (let ((sc0 arg-3)) (cond ((equal? sc0 1) arg-4) (else (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-4 ")")))))))
(define MakeClause-IDEMode-Idris-showRHSName (lambda (arg-0) (let ((fn (Name-Core-show_Show__Name (Name-Core-dropNS arg-0)))) (MakeClause-IDEMode-Idris-case--2681-7346 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--2706-7420 arg-1 arg-0 (Unlit-Parser-isLitLine arg-1))))
(define MakeClause-IDEMode-Idris-makeCase (lambda (arg-0 arg-1 arg-2) (let ((capp (vector 0 "case _ of" (Strings-Prelude-C-43C-43 "case_val => ?" (Name-Core-show_Show__Name arg-1))))) (MakeClause-IDEMode-Idris-n--2822-7469-newLines arg-2 arg-1 arg-0 capp))))
(define CaseSplit-IDEMode-Idris-case--11514-2801 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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--11386-2651-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--11449-2769 (lambda (arg-0 arg-1 arg-2 arg-3 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--11514-2801 arg-0 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--11386-2710 (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--11514-2801 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--11357-2634 (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--11352-2621 (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--11152-2494 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--11115-2435 (lambda (arg-0 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--11020-2327-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--11020-2328-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--11152-2494 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--11058-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-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--11020-2327-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--11020-2328-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--11152-2494 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--11020-2356 (lambda (arg-0 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--11020-2327-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--11020-2328-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--11152-2494 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--10636-2140 (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--10698-2042 (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--10636-2014 (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--10636-1966-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--10636-1966-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--10636-1966-spanSpace arg-0 arg-1 arg-2 arg-3 e-3))))))))))))
(define CaseSplit-IDEMode-Idris-n--11386-2651-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--11020-2327-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--11020-2328-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--10571-1901-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--11020-2356 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10571-1901-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__C-40ListC-32C-36aC-41 'erased arg-3400 arg-3401))) (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--11514-2801 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--11352-2621 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--10636-2014 e-3 arg-2 arg-1 arg-0 (CaseSplit-IDEMode-Idris-n--10636-1966-spanSpace e-3 arg-2 arg-1 arg-0 e-3))) ((1) (let ((e-4 (vector-ref sc1 1))) (CaseSplit-IDEMode-Idris-case--10636-2140 e-4 e-3 arg-2 arg-1 arg-0 (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--1836-377 (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--1831-347 (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--1836-377 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--1831-347 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--10745-2631 (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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-24 (arg-3672 eta-2))) ((arg-3673 act-24) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-1) eta-1))) (vector 1 act-24))) eta-0)))) (else (lambda (eta-0) (vector 1 (vector 0 ))))))))
(define Gambit-Scheme-Compiler-case--10618-2562 (lambda (arg-0 arg-1 arg-2 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--10401-2418 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--10207-2172 (lambda (arg-0 arg-1 arg-2 arg-3 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10067-2027 (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10067-1980-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--9823-1766 (lambda (arg-0 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--9823-1758-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--9823-1758-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--9778-1718 (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--9170-1610 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9188-1433 (lambda (arg-0 arg-1 arg-2 arg-3 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--9184-1228 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2932) (lambda (arg-2933) (Prelude-div_Integral__Integer arg-2932 arg-2933))) (lambda (arg-2934) (lambda (arg-2935) (Prelude-mod_Integral__Integer arg-2934 arg-2935)))) (vector 0 (vector 0 (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Integer arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Integer arg-438 arg-439)))) (lambda (arg-783) (lambda (arg-784) (Prelude-compare_Ord__Integer arg-783 arg-784))) (lambda (arg-785) (lambda (arg-786) (Prelude-C-60_Ord__Integer arg-785 arg-786))) (lambda (arg-787) (lambda (arg-788) (Prelude-C-62_Ord__Integer arg-787 arg-788))) (lambda (arg-789) (lambda (arg-790) (Prelude-C-60C-61_Ord__Integer arg-789 arg-790))) (lambda (arg-791) (lambda (arg-792) (Prelude-C-62C-61_Ord__Integer arg-791 arg-792))) (lambda (arg-793) (lambda (arg-794) (Prelude-max_Ord__Integer arg-793 arg-794))) (lambda (arg-795) (lambda (arg-796) (Prelude-min_Ord__Integer arg-795 arg-796)))) (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Integer arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Integer arg-2806 arg-2807)))))) 0 (Prelude-C-45_Neg__Integer (List-Data-length 'erased arg-9) 1)))))) (else "")))))
(define Gambit-Scheme-Compiler-case--8301-310 (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--10067-1980-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--9170-1138-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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Char arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Char arg-438 arg-439)))) arg-8 arg-9 (Prelude-unpack ext-0)))))
(define Gambit-Scheme-Compiler-n--9170-1136-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--9170-1136-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--9170-1136-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--9170-1141-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--9170-1136-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--9170-1137-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--8935-959-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--8935-959-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8935-959-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--8860-882-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--8860-882-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Gambit-Scheme-Compiler-n--8860-882-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--9823-1758-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--9170-1142-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--9170-1142-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--9170-1141-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--9170-1139-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--9170-1138-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--9184-1228 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--9170-1140-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--9170-1143-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--9170-1142-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--9170-1137-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--9170-1137-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--9170-1137-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--9823-1766 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--8301-310 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10067-2027 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-33 (arg-3672 eta-0))) ((arg-3673 act-33) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10618-2562 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--8935-959-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--8860-882-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--9170-1143-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--9170-1139-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--9170-1140-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--9624-2960 (lambda (arg-0 arg-1 arg-2 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--9481-2950-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--9481-2950-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--9510-2861 (lambda (arg-0 arg-1 arg-2 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--9480-2851-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--9480-2851-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--9200-2613 (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--6917-309 (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--6879-286 (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--9484-3393-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--9484-3393-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--9484-3393-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--9484-3261-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--9484-3261-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--6915-301-okchar (lambda (arg-0 arg-1) (Common-Scheme-Compiler-case--6917-309 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--9481-2950-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--9624-2960 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--9480-2851-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--9510-2861 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (Common-Scheme-Compiler-n--6915-301-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--9484-3261-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--9484-3261-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--9484-3261-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--9484-3393-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--9200-2613 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--9481-2950-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--9480-2851-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)))))))))))))
(define Common-Scheme-Compiler-readArgs (lambda (arg-0 arg-1 arg-2 arg-3 ext-0) (let ((act-24 ((Common-Scheme-Compiler-schExp 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 "(blodwen-read-args " (Strings-Prelude-C-43C-43 e-5 ")"))))))))))
(define Common-Scheme-Compiler-op (lambda (arg-0 arg-1) (Strings-Prelude-C-43C-43 "(" (Strings-Prelude-C-43C-43 arg-0 (Strings-Prelude-C-43C-43 " " (Strings-Prelude-C-43C-43 (Name-Core-showSep " " arg-1) ")"))))))
(define Common-Scheme-Compiler-mkWorld (lambda (arg-0) arg-0))
(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--11670-3132 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10976-3012 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-24 (arg-3672 eta-2))) ((arg-3673 act-24) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--11182-2885 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--11182-2758 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--11100-2712 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 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--10976-2645 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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--11100-2712 arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10976-2561 (lambda (arg-0 arg-1 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--10951-2537 (lambda (arg-0 arg-1 arg-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--10976-2561 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-27 (arg-3672 eta-2))) ((arg-3673 act-27) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10976-2645 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--10857-2458 (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--10840-2431 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10789-2384 (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--10550-2258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10225-1896 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10085-1748 (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10085-1701-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--9848-1498 (lambda (arg-0 arg-1 arg-2 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--9803-1453 (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--9328-1360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--9328-1258 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 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--9439-1209 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--9328-1131 (lambda (arg-0 arg-1 arg-2 arg-3 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--9140-1025 (lambda (arg-0 arg-1 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--9328-1131 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9328-1258 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9140-879-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--9047-782 (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--9043-757 (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--9047-782 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--8597-326 (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--9140-879-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--9140-878-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--10085-1701-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--9140-877-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--9140-874-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--9140-874-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--9140-874-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--9140-876-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--9140-874-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--9140-875-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--8954-704-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--8954-704-funTySpec arg-0 arg-1 arg-2 arg-3 e-1))(else (Racket-Scheme-Compiler-n--8954-704-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--9140-878-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--9140-878-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--9140-877-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--9140-876-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--9140-875-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--9140-875-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--9140-875-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--9848-1498 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--8597-326 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--10085-1748 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--9043-757 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-33 (arg-3672 eta-0))) ((arg-3673 act-33) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-34 (arg-3672 eta-0))) ((arg-3673 act-34) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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--10976-2561 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-3443) (lambda (eta-2) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-2)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-2) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-2) (let ((act-17 (arg-3511 eta-2))) (let ((act-16 (arg-3513 eta-2))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-2) (let ((act-29 (arg-3672 eta-2))) ((arg-3673 act-29) eta-2))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-2) (let ((act-51 (arg-3675 eta-2))) (act-51 eta-2)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10976-2645 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--8954-704-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--9140-1025 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--9140-1025 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--11222-3072 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10913-2965 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10913-2850 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-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--10841-2807 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 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--10816-2736 (lambda (arg-0 arg-1 arg-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--10841-2807 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10722-2657 (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--10705-2630 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10660-2587 (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--10573-2512 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--10293-2367 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--10004-2009 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--9864-1863 (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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--9864-1816-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--9644-1627 (lambda (arg-0 arg-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--9599-1583 (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--9186-1511 (lambda (arg-0 arg-1 arg-2 arg-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--9413-1462 (lambda (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--9186-1412 (lambda (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--8461-477 (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--8421-443 (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--8354-352 (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--8330-339 (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--9864-1816-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--9186-1217-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--9186-1213-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--9186-1213-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--9186-1213-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--9186-1216-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--9186-1213-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--9186-1214-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--8350-348-isLib (lambda (arg-0 arg-1 arg-2) (Chez-Scheme-Compiler-case--8354-352 arg-0 arg-1 arg-2 (Strings-Data-isPrefixOf "lib" arg-2))))
(define Chez-Scheme-Compiler-n--8394-391-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--9186-1218-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--9186-1218-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--9186-1217-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--9186-1216-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--9186-1219-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--9186-1218-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--9186-1214-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--9186-1214-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--9186-1214-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--9644-1627 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 "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--8461-477 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--8421-443 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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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--9864-1863 e-1 e-0 arg-0 e-5 e-6 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--8350-348-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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--8394-391-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-36 (arg-3672 eta-0))) ((arg-3673 act-36) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-37 (arg-3672 eta-0))) ((arg-3673 act-37) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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--10841-2807 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-30 (arg-3672 eta-1))) ((arg-3673 act-30) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--9186-1412 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9186-1219-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--9186-1412 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-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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--9186-1219-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--3649-2078 (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--3602-2042 (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--3532-2004 (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--3480-1926 (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--3247-1775 (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--2233-723 (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--2181-692 (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--2181-656-portPart arg-0 arg-1 e-3) (lambda (eta-0) (Strings-Data-parsePositive 'erased (vector 0 (lambda (arg-2751) (lambda (arg-2752) (b+ arg-2751 arg-2752 63))) (lambda (arg-2753) (lambda (arg-2754) (b* arg-2753 arg-2754 63))) (lambda (arg-2755) arg-2755)) eta-0)))))) (let ((host (CommandLine-Idris-case--2233-723 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--2196-664 (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--3247-1690-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--3247-1690-showSep arg-0 arg-1 e-3)))))))))))))
(define CommandLine-Idris-n--2181-656-portPart (lambda (arg-0 arg-1 arg-2) (CommandLine-Idris-case--2196-664 arg-0 arg-1 arg-2 (Prelude-C-61C-61_Eq__String arg-2 ""))))
(define CommandLine-Idris-n--3247-1692-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--3247-1691-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--3247-1690-showSep arg-0 ", " e-0) (Strings-Prelude-C-43C-43 " " (CommandLine-Idris-n--3247-1690-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 ">")))) ((2) (let ((e-1 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "<" (Strings-Prelude-C-43C-43 e-1 ">")))) (else (let ((e-2 (vector-ref sc0 1))) (Strings-Prelude-C-43C-43 "[" (Strings-Prelude-C-43C-43 e-2 "]"))))))))
(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;" (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-9 (vector-ref sc2 1))) (let ((e-10 (vector-ref sc2 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-10 (arg-3 e-9)))))))) ((1) (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-13 (vector-ref sc2 1))) (let ((e-14 (vector-ref sc2 2))) (CommandLine-Idris-processArgs arg-0 e-3 e-14 (arg-3 (Maybe-Data-toMaybe 'erased (Prelude-not (Strings-Data-isPrefixOf "-" e-13)) (lambda () e-13)))))))))) (else (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-17 (vector-ref sc2 1))) (let ((e-18 (vector-ref sc2 2))) (Prelude-C-62C-62C-61_Monad__C-40EitherC-32C-36eC-41 'erased 'erased 'erased (Either-Data-maybeToEither 'erased 'erased (lambda () (Strings-Prelude-C-43C-43 "Expected Nat argument " (Strings-Prelude-C-43C-43 (Prelude-show_Show__String e-17) (Strings-Prelude-C-43C-43 " for flag " arg-0)))) (Prelude-C-62C-62C-61_Monad__Maybe 'erased 'erased (Strings-Data-parseInteger 'erased (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (vector 0 (vector 0 (lambda (arg-2751) (lambda (arg-2752) (+ arg-2751 arg-2752))) (lambda (arg-2753) (lambda (arg-2754) (* arg-2753 arg-2754))) (lambda (arg-2755) arg-2755)) (lambda (arg-2805) (Prelude-negate_Neg__Integer arg-2805)) (lambda (arg-2806) (lambda (arg-2807) (Prelude-C-45_Neg__Integer arg-2806 arg-2807))))) e-17) (lambda (eta-0) (CommandLine-Idris-checkNat eta-0)))) (lambda (arg) (CommandLine-Idris-processArgs arg-0 e-3 e-18 (arg-3 arg)))))))))))))))))))
(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-optsUsage (lambda (arg-0) (let ((optsShow (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (CommandLine-Idris-n--3247-1691-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (Prelude-neutral_Monoid__String))) (lambda (eta-0) (CommandLine-Idris-n--3247-1692-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 15 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 31 ) (vector 0 )) (vector 1 "Show paths")) (vector 1 (vector 0 (vector 1 "--libdir" (vector 0 )) (vector 0 ) (vector 1 (vector 17 (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 16 (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 16 (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 16 (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 16 (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 28 ) (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 19 ) (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 20 (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 27 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 29 ) (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 (vector 0 (vector 1 "--log" (vector 0 )) (vector 1 (vector 2 "log level") (vector 0 )) (lambda (l) (vector 1 (vector 14 l) (vector 0 ))) (vector 1 "Global log level (0 by 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 21 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 22 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 23 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 24 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 25 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 26 f) (vector 0 ))) (vector 0 )) (vector 1 (vector 0 (vector 1 "--debug-elab-check" (vector 0 )) (vector 0 ) (vector 1 (vector 30 ) (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--3480-1926 e-2 e-3 arg-0 (Prelude-elem 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__String arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__String arg-438 arg-439)))) 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) ((20) (let ((e-4 (vector-ref sc1 1))) (CommandLine-Idris-case--2181-692 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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 18 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-checkNat (lambda (arg-0) (Maybe-Data-toMaybe 'erased (Prelude-C-62C-61_Ord__Integer arg-0 0) (lambda () arg-0))))
(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--20600-7336 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 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))) (let ((e-9 (vector-ref sc0 10))) (vector 0 e-0 e-1 (vector 1 arg-18) e-3 e-4 e-5 e-6 e-7 e-8 e-9)))))))))))))
(define Package-Idris-case--20531-7219 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-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-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 (vector 1 srcC-39) e-3 e-4 e-11 e-10 e-7 e-8 e-9)))))))))))))) (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--20463-7152 (lambda (arg-0 arg-1 arg-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--20395-7022-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-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-15 (vector-ref sc10 9))) (let ((e-14 (vector-ref sc10 10))) (vector 0 e-0 e-1 (vector 1 srcC-39) e-19 e-4 e-18 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--20395-7082 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 (_-7141) (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--20395-7022-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-28 (vector-ref sc16 2))) (let ((e-26 (vector-ref sc16 4))) (let ((e-4 (vector-ref sc16 5))) (let ((e-25 (vector-ref sc16 6))) (let ((e-24 (vector-ref sc16 7))) (let ((e-23 (vector-ref sc16 8))) (let ((e-22 (vector-ref sc16 9))) (let ((e-21 (vector-ref sc16 10))) (vector 0 e-0 e-28 (vector 1 srcC-39) e-26 e-4 e-25 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--20293-6950 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--20255-6932 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--19985-6893 (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--19985-6870 (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--19985-6848 (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--19985-6826 (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--19985-6806 (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 30 ) e-1) e-2)))))))
(define Package-Idris-case--19985-6784 (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 26 arg-0) e-1) e-2)))))))
(define Package-Idris-case--19985-6762 (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 24 arg-0) e-1) e-2)))))))
(define Package-Idris-case--19985-6740 (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--19985-6720 (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--19985-6700 (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--19985-6680 (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--19985-6657 (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--19507-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) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
(define Package-Idris-case--19507-6353 (lambda (arg-0 arg-1 arg-2 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
(define Package-Idris-case--19507-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) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-24))))))))
(define Package-Idris-case--19459-6227 (lambda (arg-0 arg-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))) (vector 1 act-25))))))))))))))))
(define Package-Idris-case--19377-6184 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--19365-6102 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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 (_-6173) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-29 (arg-3672 eta-1))) ((arg-3673 act-29) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--18959-5970 (lambda (arg-0 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--18959-5815 (lambda (arg-0 arg-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-3400) (lambda (arg-3401) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3400 arg-3401))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-1) (lambda (eta-2) (Package-Idris-n--18959-5700-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-3400) (lambda (arg-3401) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3400 arg-3401))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-5))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-3) (Package-Idris-n--18959-5701-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--18959-5700-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--18959-5699-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--18966-5716 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--18845-5622 (lambda (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--18838-5587-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--18485-5271 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--18441-5231 (lambda (arg-0 arg-1 arg-2 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--18399-5197 (lambda (arg-0 arg-1 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-27 (arg-3672 eta-1))) ((arg-3673 act-27) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--18345-5164 (lambda (arg-0 arg-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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-28 (arg-3672 eta-1))) ((arg-3673 act-28) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--18160-4999 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 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--18121-4950 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7 arg-8 arg-9 arg-10 arg-11) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--18083-4892 (lambda (arg-0 arg-1 arg-2) (let ((sc0 arg-2)) (case (vector-ref sc0 0) ((1) (let ((e-2 (vector-ref sc0 1))) (Binary-Utils-writeToFile arg-0 e-2))) (else (let ((e-5 (vector-ref sc0 1))) (lambda (eta-0) (vector 0 e-5))))))))
(define Package-Idris-case--17896-4777 (lambda (arg-0 arg-1 arg-2 arg-3 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--17847-4718 (lambda (arg-0 arg-1 arg-2 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--17896-4777 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--17776-4676 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--17847-4718 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--17666-4513 (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--17448-4429 (lambda (arg-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--16400-4267 (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--16400-4220 (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--16400-4173 (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--16400-4126 (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--16400-4079 (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--16400-4032 (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--16400-3989 (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--16400-3946 (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--16400-3903 (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--16400-3856 (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--16400-3815 (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--16400-3744 (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--16400-3701 (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--16400-3658 (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--16400-3615 (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--16400-3572 (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--16400-3529 (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--16400-3486 (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--16400-3443 (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--16400-3402 (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--16400-3361 (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--17448-4287-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--15956-2828-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 (_-2854) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-2867) (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--20395-7022-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--18838-5587-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--18838-5587-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--17448-4288-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--17448-4288-go arg-0 arg-1 arg-2 arg-3 arg-4 e-3 e-5) eta-0))))))))))))))
(define Package-Idris-n--18959-5700-deleteFolder (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (Package-Idris-n--18959-5699-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--18959-5701-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--18959-5699-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--18959-5699-delete arg-0 arg-1 arg-2 arg-3 (Path-Utils-C-60C-46C-62 ttFile "ttm") eta-0)))))))))
(define Package-Idris-n--18959-5699-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3400) (lambda (arg-3401) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3400 arg-3401))) (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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) ((16) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--19365-6102 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--17666-4513 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 (_-3289) (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 ((Prelude-putStrLn 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-29 (arg-3672 eta-0))) ((arg-3673 act-29) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-31 (arg-3672 eta-0))) ((arg-3673 act-31) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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))) ((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--18838-5587-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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 (_-7141) (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--20395-7022-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-29 (vector-ref sc17 2))) (let ((e-27 (vector-ref sc17 4))) (let ((e-4 (vector-ref sc17 5))) (let ((e-26 (vector-ref sc17 6))) (let ((e-25 (vector-ref sc17 7))) (let ((e-24 (vector-ref sc17 8))) (let ((e-23 (vector-ref sc17 9))) (let ((e-22 (vector-ref sc17 10))) (vector 0 e-0 e-29 (vector 1 srcC-39) e-27 e-4 e-26 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) ((16) (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)) ((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)) ((23) (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 23 e-6) e-1) e-4))))) e-3))) ((24) (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 24 e-7) e-1) e-4))))) e-3))) ((26) (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 26 e-8) e-1) e-4))))) e-3))) ((30) (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 30 ) 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--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 0 eta-0 eta-1))) "version") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 1 eta-0 eta-1))) "authors") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 2 eta-0 eta-1))) "maintainers") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 3 eta-0 eta-1))) "license") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 4 eta-0 eta-1))) "brief") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 5 eta-0 eta-1))) "readme") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 6 eta-0 eta-1))) "homepage") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 7 eta-0 eta-1))) "sourceloc") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 8 eta-0 eta-1))) "bugtracker") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "options") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 13 eta-0 eta-1))) "opts") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 14 eta-0 eta-1))) "sourcedir") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 15 eta-0 eta-1))) "builddir") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 16 eta-0 eta-1))) "outputdir") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 17 eta-0 eta-1))) "prebuild") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 18 eta-0 eta-1))) "postbuild") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 19 eta-0 eta-1))) "preinstall") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 20 eta-0 eta-1))) "postinstall") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-strField arg-0 (lambda (eta-0) (lambda (eta-1) (vector 21 eta-0 eta-1))) "preclean") (lambda () (vector 9 0 0 (Package-Idris-n--15956-2828-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 (_-3081) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3094) (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 (_-3070) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3122) (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 (_-3059) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3197) (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 (_-3048) (vector 7 0 (Package-Rule-Parser-equals) (lambda () (lambda (_-3255) (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 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 ((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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350)))) 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-3400) (lambda (arg-3401) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3400 arg-3401))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)) (lambda (eta-0) (lambda (eta-1) (Package-Idris-n--18959-5700-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-3400) (lambda (arg-3401) (Package-Idris-C-60C-43C-62_Semigroup__C-40C-124UnitC-44MkUnitC-124C-41 arg-3400 arg-3401))) (Package-Idris-neutral_Monoid__C-40C-124UnitC-44MkUnitC-124C-41)))) e-8))))))) (Core-Core-traverse 'erased 'erased (lambda (eta-2) (Package-Idris-n--18959-5701-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--18959-5700-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--18959-5699-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--17847-4718 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--17448-4288-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--17448-4287-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--17448-4287-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--2286-341 (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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--2381-6326 (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--2348-6299 (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--2341-6288 (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--2348-6299 arg-0 e-2 (Common-Lexer-Parser-case--1640-321 e-2 (vector 0 ) (Prelude-unpack e-2))))(else (vector 0 )))))))(else (vector 0 ))))))(else (vector 0 ))))))
(define Package-Rule-Parser-case--2320-6268 (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--2299-6248 (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--2279-6229 (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--2232-6196 (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--2223-6179 (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--2232-6196 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--2204-6158 (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--2185-6139 (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--2279-6229 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--2381-6326 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--2341-6288 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--2299-6248 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--2320-6268 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--2223-6179 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--2185-6139 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--2204-6158 x (let ((sc0 x)) (let ((e-5 (vector-ref sc0 5))) e-5)))))))
(define Package-Lexer-Parser-case--2365-418 (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--2365-404-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--2365-404-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--2283-308-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--2283-308-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--2365-418 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--1797-3188-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--1797-3187-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--1797-3187-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--1797-3187-end 'erased e-2 e-3 arg-3 arg-2)))) (lambda (eta-0) (vector 1 (StringTrie-Data-n--1797-3188-rec 'erased e-2 e-3 arg-3 arg-2 eta-0))) (lambda (x) (lambda (eta-0) (vector 2 x (StringTrie-Data-n--1797-3188-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--19261-9546 (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--19065-9432 (lambda (arg-0 arg-1 arg-2 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--18895-9226-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--19008-9360 (lambda (arg-0 arg-1 arg-2 arg-3 arg-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--19065-9432 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--18961-9313 (lambda (arg-0 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--19008-9360 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--18895-9274 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--19008-9360 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--18906-9235 (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--18690-9097 (lambda (arg-0 arg-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--18689-9049 (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--18507-8988 (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--17878-8302 (lambda (arg-0 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--17807-8224 (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--17734-8151 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))))))))
(define REPL-IDEMode-Idris-case--17665-8104 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))))))))
(define REPL-IDEMode-Idris-case--17654-8071 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (vector 1 1 (vector 0 ))) eta-0))))))))))))
(define REPL-IDEMode-Idris-case--17530-8010 (lambda (arg-0 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--17478-7949 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--17417-7901 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) arg-2) eta-0))) ((REPL-IDEMode-Idris-case--17478-7949 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--17402-7842 (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed to open socket") eta-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-26 (arg-3672 eta-1))) ((arg-3673 act-26) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-24 (arg-3672 eta-1))) ((arg-3673 act-24) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5 (vector 1 (vector 2 arg-1)) arg-0) eta-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--17417-7901 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--17332-7784 (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--18507-9045-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--18507-9043-semverSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 1 (REPL-IDEMode-Idris-n--18507-9044-tagSexp arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (vector 0 ))))))
(define REPL-IDEMode-Idris-n--18895-9226-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--18507-9044-tagSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--18690-9097 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--18507-9043-semverSexp (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 arg-6 arg-7) (REPL-IDEMode-Idris-case--18689-9049 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--18507-9032-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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-1) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-1)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-1) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-1) (let ((act-17 (arg-3511 eta-1))) (let ((act-16 (arg-3513 eta-1))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-1) (let ((act-25 (arg-3672 eta-1))) ((arg-3673 act-25) eta-1))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-1) (let ((act-51 (arg-3675 eta-1))) (act-51 eta-1)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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 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 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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--19008-9360 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "Failed to open socket") ext-0))) ((System-exitWith 'erased 'erased (vector 0 (vector 0 (vector 0 (lambda (b) (lambda (a) (lambda (func) (lambda (arg-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) e-5 (vector 1 (vector 2 arg-0)) arg-1) ext-0))) (let ((osock (vector 1 e-5))) ((REPL-IDEMode-Idris-case--17417-7901 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) ((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--17807-8224 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-24 (arg-3672 eta-0))) ((arg-3673 act-24) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-25 (arg-3672 eta-0))) ((arg-3673 act-25) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) 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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-26 (arg-3672 eta-0))) ((arg-3673 act-26) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) "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-3443) (lambda (eta-0) (Prelude-map_Functor__IO 'erased 'erased func arg-3443 eta-0)))))) (lambda (a) (lambda (arg-3510) (lambda (eta-0) arg-3510))) (lambda (b) (lambda (a) (lambda (arg-3511) (lambda (arg-3513) (lambda (eta-0) (let ((act-17 (arg-3511 eta-0))) (let ((act-16 (arg-3513 eta-0))) (act-17 act-16))))))))) (lambda (b) (lambda (a) (lambda (arg-3672) (lambda (arg-3673) (lambda (eta-0) (let ((act-27 (arg-3672 eta-0))) ((arg-3673 act-27) eta-0))))))) (lambda (a) (lambda (arg-3675) (lambda (eta-0) (let ((act-51 (arg-3675 eta-0))) (act-51 eta-0)))))) (lambda (a) (lambda (arg-8350) arg-8350))) (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--18507-9032-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--18507-9045-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)))))))) ((3) (let ((e-34 (vector-ref sc2 1))) (let ((e-35 (vector-ref sc2 2))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Unlit-Parser-relit e-34 eta-0)) e-35))))))) ((4) (let ((e-36 (vector-ref sc2 1))) (let ((e-37 (vector-ref sc2 2))) (REPL-IDEMode-Idris-printIDEResult arg-5 arg-6 (vector 1 (Name-Core-showSep "\xa;" (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Unlit-Parser-relit e-36 eta-0)) e-37)))))))(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--2090-7615 (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--2090-7590-toIntC-39 (lambda (arg-0 ext-0) (Prelude-cast_Cast__String_Integer ext-0)))
(define Data-Socket-Network-n--2090-7591-toInt (lambda (arg-0 arg-1) (Data-Socket-Network-n--2090-7590-toIntC-39 arg-0 arg-1)))
(define Data-Socket-Network-n--2090-7592-splitted (lambda (arg-0) (Prelude-map_Functor__List 'erased 'erased (lambda (eta-0) (Data-Socket-Network-n--2090-7591-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-3400) (lambda (arg-3401) (Prelude-C-60C-43C-62_Semigroup__String arg-3400 arg-3401))) (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--2090-7615 arg-0 (Data-Socket-Network-n--2090-7592-splitted arg-0))))
(define Data-Socket-Network-getSocketFamily (lambda (arg-0) (List-Data-lookup 'erased 'erased (vector 0 (lambda (arg-436) (lambda (arg-437) (Prelude-C-61C-61_Eq__Int arg-436 arg-437))) (lambda (arg-438) (lambda (arg-439) (Prelude-C-47C-61_Eq__Int arg-438 arg-439)))) 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--2258-8194 (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 (_-8221) (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--2222-8151 (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 (_-8221) (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--2161-8079 (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--1990-7932 (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--1857-7792 (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--1990-7895-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--1857-7792 '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--2161-8079 '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--1990-7895-saString 'erased arg-1 arg-4 arg-3 arg-2 arg-3) arg-4 eta-0)))))) (lambda (bind_res) (Socket-Network-case--1990-7932 '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--2222-8151 '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--1560-7877 (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 1560(7877) at Network/Socket/Raw.idr:63:1--75:1"))))))(else (Builtin-idris_crash 'erased "Unhandled input for Network.Socket.Raw.case block in 1560(7877) 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--1560-7877 'erased arg-1 arg-2 addr_family_int (Data-Socket-Network-getSocketFamily addr_family_int))))))))
(define SyntaxHighlight-IDEMode-Idris-case--6368-6923 (lambda (arg-0 arg-1 arg-2 arg-3 arg-4 arg-5 ext-0) (vector 1 arg-0)))
(define SyntaxHighlight-IDEMode-Idris-case--6135-6716 (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--6048-6611 (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--6104-6651-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--6048-6611 arg-1 arg-0 e-5 (let ((sc1 e-5)) (let ((e-7 (vector-ref sc1 8))) e-7))) 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-2905) (SyntaxHighlight-IDEMode-Idris-toSExp_SExpable__Highlight arg-2905)) (SyntaxHighlight-IDEMode-Idris-n--6104-6651-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--3134-370 (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--3134-346-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--3136-351 (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--3134-346-notComment (lambda (arg-0 arg-1) (Parser-IDEMode-Idris-case--3136-351 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 (_-523) (vector 7 1 (Source-Rule-Parser-exactIdent "True") (lambda () (lambda (_-535) (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 (_-510) (vector 7 1 (Source-Rule-Parser-exactIdent "False") (lambda () (lambda (_-549) (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 (_-475) (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 (_-449) (vector 8 1 0 (Parser-Text-many 'erased 'erased (Parser-IDEMode-Idris-sexp)) (lambda (xs) (vector 7 1 (Source-Rule-Parser-symbol ")") (lambda () (lambda (_-584) (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 (_-654) (vector 0 c)))))))))
(define Parser-IDEMode-Idris-idelex (lambda (arg-0) (Parser-IDEMode-Idris-case--3134-370 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-Idris-main eta-0)))(collect 4)
(blodwen-run-finalisers))